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° Laser Chess 


dazzling, two-player strategy 
we that moves chess into 
21st century. 
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Store up to 56 different Add lots of useful 
screens and instantly features to your 64’s 
P retrieve wy one for operating system. 
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Miami Ice 
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Frozen roads in South Florida? A frantic 
driving experience is guaranteed in this 
rea — with versions for the 

128 a 0 
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PROVING GROUNDS OF THE MAD OVERLORD 
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Also available for: 
Apple ll Series, = & 
IBM PC & compatibles, 
Tandy 1000 SX & EX, 






With your Commodore 64 or 128 you can 

| now experience an exciting initiation into the 1 
») internationally-acclaimed world of the Wizardry 
~~ Gaming System. 

Begin with the first scenario*: Proving ii 
Grounds of the Mad Overlord. It challenges you 

to overcome devious tricks and sudden traps, | 

strange and mysterious encounters, maze upon 

maze of puzzles, stimulating and intricate sub- - 

plots and sophisticated themes. Ingenious multi- 

level, mind-bending tests abound with vile 

creatures, unspeakable villains, courageous 

adventurers and strong allies to hinder and 

help you achieve ultimate victory. | 

| 
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Sir-tech Software, Inc.., 
oe P.0. Box 245, Ogdensburg, NY 13669 
F (315) 393-6633 


® Reaistered trademark of Sir-tech Software, Inc 
© Copyright by Sir-tech soltwate, ic: 
Commodore is a reqistered trademark of Commadore [nternational 


*. Many other Wizardry scenarios coming tor Commodore players. 


Exciting & New! 
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Get more power, education, and relaxation from your Commodore 64 or 128 with these 
new books from COMPUTE!. And, as always, the programs are thoroughly tested and easy 
to enter using our special program entry system. (Disks are available, too.) 


COMPUTE!'s Commodore 64/128 
Power BASIC 

Edited 

Collected in this one volume are more 
than two dozen short BASIC programs 
from COMPUTE!’s Gazette's popular 
monthly column, “Power BASIC.” In- 
cluded are utilitias that add an 8K RAM 
disk; read and write to disk sectors; 
make programs read joysticks more 
quickly; and automatically generate line 
numbers. There are also programs such 
as “Stop and Go," which creates a 
pause button to temporarily halt a pro- 
gram, and “Time Clock,” which puts a 
digital clock on your screen, There /s a 
companion disk available for $12.95 
which includes all the programs from 
fhe book. (998BDSK) 

$16.95 ISBN 0-87455-099-8 


COMPUTEI's More Machine Language 
Games for the Commodore 64 

Edited 

seven of the best machine language 
games for the 64 have been gathered 
into one volume in this follow-up to the 
popular COMPUTE!’s Machine Language 
Games for the Commodore 64, Selected 
from recent issues of COMPUTE! and 
COMPUTE!'s Gazette, the games range 
from the frantic “Prisonball” to the 
delightful Biker Dave,”’ This is more than 
just a collection of exciting fast-action 
games, though, because complete and 
commented source code for each pro- 
gram is included in the book. Machine 
language programmers can see exactly 
how each game is written and what de- 
sign techniques are used. A aisk Is avail- 
able for $12.95 which includes all the 
programs in the book, including source 
code. (947BDSK), 

$16.95 ISBN 0-87455-094-7 


COMPUTE!I's Third Book of Commodore 
64 Games 

Edited 

COMPUTE! Publications, the leading pub- 
lisher of programs for the Commodore 
64, has brought together another excit- 
ing collection of nerve-tingling games 
that will delight the whole family—from 
preschoolers to teenage arcade fans to 
those who enjoy games of logic, Clearly 
written, with non-technical instructions, 
this book contains hours of challenging 
entertainment for beginning computer 
fans as well as experienced pro- 
grammers. There is a companion disk 
available for $12.95 that includes all the 
programs in the book. (955BDSK). 
$15.95 ISBN 0-87455-095-5 


These books are now available at your local book or computer store. 
You can also order directly from COMPUTE! by calling toll free 800-346-6767 
(in NY call 212-887-8525) or maillng your order to COMPUTE! Books, P.O. Box 5038, 


F.D.R. Statlon, New York, NY 10150. 


Customer Service hours are 10:00 a.m. 12: 30 p.m. and 1:30 p.m. -3:00 p.m. EST Mon.-Fri. 


Please include $2.00 postage and handling per book or disk. NC residents add 5 percent sales tax and NY CLE Ny 
add 8.25 percent sales tax. Please allow 4-6 weeks for delivery. 





COMPUTE! Publications INCE 


A Capital Cities/ABC, Inc, Company 


COMPUTE! books are available outside the United States 
from subsidiaries of McGraw-Hill International Book Company, 


No matter what kind of game you're in the 
mood for, you'll find that if it’s in a box 
marked FIREBIRD, it’s really hot 

Firebird offers the excitement of a whole 
range of challenges — Adventures and 
Strategies for long rainy weekends, Arcade 
games for exhilarating evenings, Simulations 
when you need to get away from it all, 
Productivity software when you're feeling — 
well, productive. 

Look for the Firebird — it stands for top- 
quality software in virtually every category. 


How About This 

Ball of Fire From Firebird! 
This is SENTRY, a unique Strategy game with 
over 10,000 full-color 3D vector landscapes 
and four-way scrolling. Do you have truly 
exceptional concentration and near perfect 


Se 
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em CUILD“THIEVES 


RAINATRS 


hand/eye coordination? Then maybe — just 
maybe — you possess the skill to outwit the 
Sentry at each level of the extraordinary 
challenge. 


Firebird Fireworks 
Unlimited 

When your mood shifts from the deliberation 
of strategic planning to the excitement of fast- 
paced Arcade action, look for Firebird’s ELITE, 


4 unique game which encompasses the best of 


both worlds, Or try SIARGLIDER, an amazing 
3D combat flight simulation. 

If it’s Adventure you're after, here's the 
breathtakingly illustrated GUILD OF THIEVES, 
with its revolutionary text-handling system. 

Firebird even offers economical, 
professional-quality Productivity software! 
ADVANCED ART STUDIO is a comprehensive 
art package with powerful graphics routines. 


Commodore 6&4 is a regbtered trademark of Commodore Business Machines, Ine. 


a Fe THE ADVANCED 
OCP ART STUDIO 
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This is Firebird — the best in interactive 
software of every description. We'll prove to 
you that you don’t have to keep switching 
brands to satisfy your obsession for challenge! 


CREDIT CARD HOTLINE = 


(201) 444-5700 RSC? 


onfien ) vandibes = 
HIiRcBIRe 
“The First Full Line In Software” 
Firebird Licensees, Inc. 
P.O. Box 49, Ramsey, NJ 07446 
(201) 444-5700 
Firebird software for Commodore 64 systems, including the 
popular Golden Path, Pawn, Colossus Chess IV, Cholo, Talking 
Teacher, Concise Music System and Advanced Music System, is 
available from $24.95 to $59.95. 


Firebird, and the Fleebird logo are registered tademarks of Firebird Licensees, Inc. 
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COMPUTE's GAZETTE is published monthly by COMPUTE! Publications, Inc, 825 7th Avenue, New York, NY 10019 USA, Phone: (212) 265-8360. Editorial offices are located at 324 
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Moines, [A 50340, Second class postage paid at Greensboro, NC 27403 and additional mailing offices. Entire contents copyright ©1988 by COMPUTE! Publications, Inc, All rights 
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When we first decided to launch a compilation of our best-ever 
Commodore programs, we looked through the archives of COM- 
PUTE! and GAZETTE. We had our favorites, and there were those 
that drew impressive responses from our readers. We compiled a 
list of these and discovered that there was enough material (over 
100 programs) to fill at least two magazines. 

Our initial offering, Best of COMPUTE! & GAZETTE For Com- 
modore 64 & 128, contains many of the programs from our “‘best 
of” list. It hit the newsstand last October and was received very 
well. This issue contains 33 more of our best-ever ready-to-type- 
in 64 and 128 programs, spanning several categories: games, 
education, graphics, disk and programming utilities, applica- 
tions, and 128-only programs. For those of you unfamiliar with 
our program listing conventions, see ‘“‘“How To Type In COM- 
PUTE!’s Gazette Programs,’ ‘‘Automatic Proofreader,’’ and 
“MLX”’ before beginning your typing session. For those who 
would rather spend a little money and save a lot of typing time, 
we have a special disk offer (see page 26). For $6.95 plus $2 post- 
age and handling, we’re offering a companion disk that contains 
all the programs in this issue. The disk contains an easy-to-use 
menu that calls the programs with the press of a key. 

We carefully selected the programs for this issue, so that reg- 
ular GAZETTE subscribers will have many programs that never 
appeared in GAZETTE. And newer subscribers (the past 12 
months) will see some GAZETTE programs that are no longer 
available by back order. We’re confident that this collection offers 
some of the finest Commodore programs ever published, and rep- 
resents an excellent value for the Commodore 64 and 128 owner. 


The COMPUTES GAZETTE subscriber list is made available to 
carefully screened organizations with a product or service 
which may be of interest to our readers, If you prefer not to 
receive such mailings, please send an exact copy of your 
subscription label to: COMPUTEs GAZETTE, P.O. Box 10958, 
Des Moines, IA 50950, Include a note incecating your pret- 
erence to receive only your subscription. 


COMPUTE! Publications, Inc. > 
One of the ABC Consumer Magazines, Inc. 

A Capital Cities/ABC, Inc. Company 

ABC Publishing, President, Robert G. Burton 

1330 Avenue of [he Amencas. New York, Naw York 10019 


Authors of manuscripts warrant that all materials submitted to COMPUTETs GAZETTE are original materials with full ownership 
rights resident in said authors, By submitting articles to COMPUTE GAZLTTL, authors acknowledge that such materials, upon 
acceptane e for publication, become the exclusive property of COMPUTE! Publications, Inc. No portion of this magazine 
may be reproduced in any form without written permission from the publisher, Entire contents copyright © 1984 COM- 
PUTE! Publications, Inc. Rights to programs developed and submitted by authors are explained in our author contract, Un- 
solicited materials not accepted for publication will be returned if author provides a selt-addressed, stamped envelope. 
Where progranns are ine tutled in-an article submission, a tape or disk must accompany the submission, Printed listings are 
optional, but helpful. Articles should be furnished as typed copy (upper and lowercase, please) with double spacing. Each 
article page should bear the tithe of the article, date, and name of the author. COMPUTE! Publications, Inc., assumes no 
liability for errors in articles or advertisements, Opinions expressed by authors are not necessanly those of CO 
Publications, Inc, COMPUTE! Publications assumes no responsibility tor damages, delays, or failure of shipment in connec- 
tion with authors’ offer to make tape or disk copies of programs published herein. 

Commodore 64, Plus/4, 16, and 128 are trademarks of Commodore Business Machines, Ine, and/or Commodore Electronics 
Limited, Other than as an independent supplier of quality information and services to owners and users of Commodore 
beetle COMPUTE! Publications, Inc., is in no way associated with Commodore Business Machines, Ine or any of its 
SLS IAPs 
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at MicroProse to incorporate the potential " on | + i 
design and performance characteristics in, a “ ea — 
powerful new simulation, ae weet 
Slip into the cockpit of PROJECT: STEALTH FIGHTER. Elite 
familiarize yourself with the advanced “heads-up display"(HUD) and "t. 


Tevelaleiies (emer OMeleleiieneele del Mls) Meal elllm@eltjeleltc|Mt wa mere red| (ale) 
array of state-of-the-art electronics, weapons and countermeasures. 


But remember, flying a stealth aircraft takes more than just fighter pilot reflexes. 
The real challenge is mastering the jet's electromagnetic profile to avoid enemy 
radar, while executing a deep-strike mission into North Africa or conducting delicate photo reconnaissance over Eastern Block 
seaports. Also featured are carrier and land-based takeoffs and landings, as well as land, sea, and air targets and threats. 


PROJECT: STEALTH FIGHTER combines the combat action thrills of the best-selling F-15 STRIKE EAGLE with the 


rey elaleiiersi(eMmilfelalmeralinelslantcinlM@elelalclclecteMMMCLelhtelalLommave(eM (atcmelslale (care lale mills) elciarsieme) melfelnleleri((MeMailtstci(e)atsm lame a 
innovative “invisible aircraft” and you have PROJECT: STEALTH FIGHTER, the latest flying challenge from MicroProse! 


PROJECT: STEALTH FIGHTER is available from a “Valued MicroProse 
Retailer” (VMR) near you. Call us for locations! 

For Commodore 64/128, IBM-PC/compatibles and Apple Il/e/c. Call or 
write for specific machine availability, and for MC/VISA orders it product 
not found locally 





UtLaATION #8 SOFTWARE 


160 Laketron! Drive ® Hunt Valiey, MD 21030 © (201) 771-1151 
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Laser Chess™ won First Prize in our $10,000 programming con- 
test for COMPUTE!s Atari ST Disk & Magazine. Awarded $5,000 
for its originality and skillful programming, Laser Chess Is a 
two-player strategy game patterned after traditional chess—with 
some fascinating new twists. The original version was written in 
the Modula-2 language for the Atari ST. Here we provide a ma- 
chine language translation for the Commodore 64 (and Commo- 
dore 128 in 64 mode), At least one joystick ts required. 


| Laser Chess™, as the name implies, 
is a chesslike strategy game for two 
players. The goal is to manipulate a 
laser-firing piece and various reflec- 
tive objects to eliminate your oppo- 
nent’s king. As in traditional chess, 
there are an infinite number of 
ways to accomplish this. 

since the program is written in 
machine language, it must be typed 
in with the “MLX” machine lan- 
guage entry program printed else- 
where in this issue. Here are the 
starting and ending addresses for 
MLX: 
Starting address: 
Ending address: 


0801 
IBBS 

There are eight basic types of 
pieces in Laser Chess, and each has 
unique capabilities. Over time, 
you'll learn each piece’s advantages 
and limitations. Obviously, the 
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more you play Laser Chess, the 
more you'll understand the pieces 
in your arsenal, which in turn will 
make you a better player. So let's 
Start with a description of the 
pieces. 


A Geometric Army 
Figure 1 shows each piece and its 


| name, (The appearance of game 
| pieces may differ slightly in the 


Commodore version.) Notice that 
some sides of certain pieces are 
highlighted with a different color. 
This indicates a reflective surface. 
When a laser beam strikes a reflec- 
tive surface, it bounces off without 
harming the piece. But if a piece is 
hit by a laser on a nonreflective sur- 
face, it is destroyed. 

A piece can also be removed 
from the board if it is captured by 
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Figure 1: These are the basic 
pieces in Laser Chess. 
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an opposing piece. This is similar to 
traditional chess; to capture a piece, 
you simply move one of your own 
pieces onto its square, 

In addition to their ability to 
move from square to square, pieces 
with reflective surfaces can also be 
rotated in place in 90-degree incre- 
ments. This lets you orient the piece 
to protect it against opposing laser 
shots, or to set up bounce shots 
with your own laser. 

The king is the most important 
piece in Laser Chess. When the king 
is eliminated, the other player wins 
the game. Since it has no reflective 
surfaces, it can be destroyed by a la- 
ser from any angle. It can also be 
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Fight the battles of Mexico City, Belleau Wood, 
ge) lwo Jima, Okinawa — The Shuri Line, Okinawa — 
| The Last Redoubt, Pusan Perimeter, Inchon and 
Hue with the elite fighting men of the US Marines. 


Halls of Montezuma uses the Battlefront Game System with a 
number of enhancements. These include: night capable units, 

' brittle units, new reports structure, new graphics, improved movement 
and regimental integrity, and enhanced AI routines. The battles are 
accompanied by detailed historical articles and players notes. 

Be the architect of victory with the complete wargame construction 
set Warplan™ and the total graphics editor Warpaint™. Alter any 
scenario or create new games with Warplan. Change the appearance 

and color of any game icon with Warpaint. | 


Fight with the best in Halls of Montezuma from SSG. 


How to purchase. Visit your retailer or call Electronic Arts 

800-245-4525 (in CA call 800-562-1112) for VISA or _ 
Mastercard orders or write to Electronic Arts, P.O. Box 7530, 
San ant CA 94403. 


Strategic Studies Group Presents .. - 


nebo American (in if 


First Bull Run, Shiloh, Second Bull Run, 
Antietam, Federicksburg, Chancellorsville. 


Six crucial battles spanning the first half of The American Civil War 
are recreated in SSG’s Decisive Battles System. 

Decisive Battles is SSG’s new grand tactical simulation, suitable for 
battles of the eighteenth and nineteenth centuries. The many aspects of 
warfare are integrated into an casy to use system that takes ten 

minutes to learn. 


Like Grant at Shiloh and Lee at Antietam, you command an entire army. 
Your Corps, Divisions and Brigades de send upon your direction in battles 
lasting up to four days. The American Civil War faithfully reflects the 
conditions and command structures of the time. On a pre-radio battlefield, 
your command abilities will be stretched to the limit. 


Take control of your battlefield with SSG’s comprehensive wargame 
construction set Warplan!™! and the revolutionary graphics editor 
Warpaint'* . Total command can be yours with The American Civil War 
from SSG. 


Ilow to purchase. Visit your retailer or call Electronic Arts 
800-245-4525 (in CA call 800-562-1112) for VISA or 
Mastercard orders or write to ilectronic Arts, PO, Box 7530, 
San Mateo. CA 94408. 





| captured by an opposing piece. The 
| king is not totally defenseless, how- 
ever. It can capture any opposing 
piece by moving onto its square. 
But you can use it for a capture only 
once per turn. 

The second most important 
piece is the laser. This piece is your 
primary offensive weapon; it’s the 
only piece which can fire a laser 
shot. To take aim, you can rotate it 
in place at 90-degree angles. Like 
the king, the laser is completely 
vulnerable to enemy laser strikes, 
because it has no reflective sur- 
faces. If you lose your laser, the 
game is not over, but only the most 
skillful (or incredibly lucky) player 
can overcome its loss. 


Tricky Pieces 

The hypercube is an interesting 
piece, It can’t harm an opposing 
piece directly, but may very well do 
| so indirectly, When the hypercube 
is moved onto another piece (even 
your own), that piece disappears 
from its original position and reap- 
pears on a randomly selected emp- 
ty square. This can happen only 
once per turn. The hypercube can 
be a two-edged sword; it may relo- 
cate a piece to a vulnerable posi- 
tion, or it may make it possible for 
the piece to capture an important 
opposing piece on the next move. 
The hypercube has no reflective 
surfaces and cannot be rotated. It is 
invulnerable to laser shots, howev- 
er, because it’s made of transparent 
material—a laser beam passes right 
through it. Remember that. 

The beam splitter is another 
tricky piece. When a laser beam 
strikes a splitter’s vertex (the point 
opposite its base), the beam splits in 
two. The two new beams travel in 


Figure 2: As seen in this 
magnified view, a beam splitter’s 
vertex reflects a laser shot in two 
perpendicular directions. 
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opposite directions, perpendicular 
to the original beam’s path. (See 
Figure 2.) When a laser shot hits 


| one of the beam splitter’s reflective 


surfaces, it bounces off at a 90-de- 


| gree angle without splitting. If the 


beam splitter’s s base is hit by a laser 
shot, it is destroyed. The beam 
splitter can be rotated. 

The blocks are fairly simple 
pieces. However, they may impose 
some complex situations. A block 
can capture any opposing piece by 
moving onto that piece’s square, 
much like a king. But unlike a king, 
a block has one reflective side and 
can be rotated as the situation de- 
mands. Therefore, blocks can be 
used either offensively or defen- 
sively. A laser beam that hits the re- 
flective surface of a block is 
deflected 180 degrees—bouncing 
the beam back where it came from. 

A diagonal mirror cannot be de- 
stroyed by a laser, because both of 
its surfaces are reflective. Diagonal 
mirrors can be removed from the 
board only when captured by a 


| block or a king. When a laser beam 


strikes a diagonal mirror, the beam 
is deflected 90 degrees. Diagonal 
mirrors can be flipped to their op- 
posite diagonal, but cannot be ro- 
tated to face horizontally or 
vertically. 

The horizontal mirrors and ver- 


tical mirrors (known collectively as | 


straight mirrors) are also invulnera- 


| ble to lasers due to their reflective 


surfaces. When a laser hits a 


| straight mirror on its flat surface, 


the beam is deflected 180 degrees. 


If the laser hits a straight mirror 


edgewise, the beam passes straight 
through it. (Look closely at Figure 
2; a laser beam is passing through a 
horizontal mirror just to the left of 
the red beam splitter.) Straight mir- 
rors can be rotated to become either 
horizontal or vertical mirrors, but 
not diagonal mirrors. 

The triangular mirrors deflect 


| laser beams just as diagonal mirrors 


do, but they are vulnerable to hits 


| on their two nonreflective sides, A 


triangular mirror can be rotated in 
90-degree increments. 


Making Moves : 

As in the conventional game of 
chess, a move in Laser Chess con- 
sists of moving or otherwise ma- 
nipulating a game piece. A cursor 
indicates your position on the 





board. Use the joystick to move the 
cursor over the piece you wish to 
move. (If you have only one joy- | 
stick, plug it into port 2. You can 
simulate the second joystick by 
pressing the left-arrow, 1, 2, and 
CTRL keys to move the joystick 
left, right, up, and down, respec- 
tively, and pressing the space bar as 
a substitute for the button.) 

To select a piece, hold down 
the fire button. To rotate a piece, 
move the joystick and press the 
button at the same time. [o move a 
piece, move the pointer to the desti- 
nation square after you have select- 
ed a piece; then press the button a 
second time. 

The same player always moves 
first in Laser Chess. There's no par- 
ticular advantage or disadvantage 
to moving first. 

A turn consists of two moves. 
The number of moves remaining in 


| a turn is indicated visually on the 


screen. (See Figure 3.) 


Figure 3: This full-screen view of 
Laser Chess shows its 9 X 9 board 
grid and game controls. 





Before you move or rotate a 
piece, you must select it. When a | 
piece is selected, the appearance of 
the piece changes. 

If you accidentally select the 
wrong piece, you can deselect it by 
the same means used to select it, as 
long as you're still in the same 
square. Deselecting is usually done 
after rotating a piece—more on this 
in a moment. 

After you've selected a piece, 
your next decision is whether to 
move or rotate it. Moving a distance | 
of one square takes one move; mov- 
ing two squares takes two moves | 
(although you can move a piece | 
two squares in one step). Since you | 
have only two moves per turn, the 
maximum distance a piece can be 
moved in one turn is two squares. 





New books 


from COMPUTE! 
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COMPUTE! Books is bringing you a brand new |. ae a " 
line up of books for your Commodore 64 and AA : 
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128. These recent releases offer you everything A \ . aw 
from programming hints to exciting games, from | NY \\ 
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Pascal for Beginners 


$14.95 0-87455-068-8 
Book/disk combination for the Commodore 64 
$29.95 ISBN 0-87455-069-6 


This introductory text to standard Pascal on any computer is 
an ideal tutorial for anyone who wants to lear this powerful 
computer language. It includes everything you need, includ- 
Ing an introductory Pascal interpreter* for the Commodore 64 
and 128 in 64 mode, ready to type in and use, Written in plain 
English and offering numerous program examples, it gently 
and clearly explains standard Pascal and structured program- 
ming. Latter sections include discussions of advanced topics 
such as files and dynamic data storage. There is also an op- 
tional disk available for $12.95 for the Commodore 64 which 
Includes most of the programs in the book, 688BDSK, 

“The Commodore 64 Pascal interpreter is not full-featured, 
but still a powerful implementation of Pascal which suits the 
needs of most beginners. 


COMPUTE!’s Music System 

for the Commodore 64 and 128 

Book/disk combination only 

$24.95 ISBN 0-87455-074-2 
sidplayer, the feature-packed, popular music player and edi- 
tor program, is now more versatile and more impressive than 
before. Enhanced Sidplayer for the Commodore 128 and 64 
includes two new versions—one for the Commodore 128 run- 
ning In 128 mode and another for the Commodore 64. Take 
advantage of every feature the SID chip (the sound chip in 
the 128 and 64) has to offer. Just like the original, Enhanced 
Sidplayer |s easy to learn and use, with many powerful new 
features. The accompanying disk contains the editor, player 
programs (including a Singalong program), utilities, and sam- 
ple music that you can enjoy Immediately or change. The 
new Sidplayer plays any songs created by the original 
sidplayer for the Commodore 64. 
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User's Guide to GEOS: geoPaint and geowrite 
$18.95 ISBN 0-87455-080-7 
Learn the ins and outs of GEOS, the new icon-based operat- 
ing system for the new Commodore 64C and the 64, with this 
step-by-step guide. Everything from creating simple letters 
with geoWrite and pictures with geoPaint to merging text and 
graphics and using desk accessories is clearly and concisely 
explained, 


COMPUTEI’s Second Book of the Commodore 128 


$16.95 ISBN 0-87455-07 7-7 
The editors at COMPUTE! Publications have collected some of 
the best games, programs, and tutorials for the Commodore 
128 (in 128 mode) from COMPUTE! magazine and COMPUTE!'s 
Gazette. Like COMPUTE!’s First Book of the Commodore 128, 
this book offers a variety of programs and articles for every 
128 user, Each program has been fully tested and Is ready to 
type in and use on the Commodore 128 running In 128 mode. 
There is also a disk available for $12.95 which includes the pro- 
grams in the book. 777BDSK. 


Mapping the Commodore 64, Revised 

$16.95 | ISBN 0-87455-082-3 
An update of the bestselling memory map and programming 
guide. It’s a necessity for intermediate and advanced pro- 
grammers. This definitive sourcebook has been expanded and 
now covers the new icon-based GEOS (Graphics Environment 
Operating System) with clear descriptions of how to make it 
work for you. For BASIC and machine language programmers 
of both the Commodore 64 and 64C, 





Look for COMPUTE! Books at your local computer or book store. 
Or, to order directly from COMPUTE], call toll free 1-800-346-6767 (in NY 212-887-8525) or 
write COMPUTE! Books, P.O. Box 5038, F.D.R. Station, New York, NY 10150. 


Please include shipping and handling: $2.00 per book in U.S. and surface mail; $5.00 airmail. NC residents add 
9 percent sales tax and NY residents add 8.25 percent sales tax, Please allow 4-6 weeks for delivery, 
Customer Service hours are 10:00 a.m.-12:30 p.m. and 1:30 p.m,-3:00 p.m, EST Mon.-Fri. 


COMPUTE! Publications inc@ 


4 Capital Cities/ABC, Inc, Company 


COMPUTE! Books are available outside the United States from 
subsidiaries of McGraw-Hill International Book Company. 








The computer does not allow illegal 
| moves, 


Pieces can be moved forward, | 


backward, left, or right, but not di- 
agonally. You can effectively move 
a piece diagonally by using two 
moves—forward and right, for in- 
stance. 

You cannot move a piece onto 
a square occupied by another piece. 
The only exceptions are captures 
with blocks and kings, and moves 
of the hypercube as described 
above. 


Rotating A Piece 

The computer does not allow 
you to rotate a piece that’s incapa- 
ble of rotation, Otherwise, the piece 
rotates 90 degrees (one-quarter 
turn) clockwise. You may continue 
rotating the piece to any desired po- 
sition before deselecting it. Rotating 
a piece to face any direction takes 
only one move, and the move is 
subtracted after the piece is dese- 
lected. If you deselect the piece in 
its original position, no move is 
subtracted. 

You can combine a rotation 
and a move in a single action. First, 
select the piece. Then rotate it to the 


direction you wish it to face, Final- | 


ly, move to any adjacent square (ex- 
cept a diagonal) as you would 
normally do. The piece moves to 
that square and faces in the direc- 
tion you've chosen. Since rotating a 
piece and moving a piece each take 
| one move, this uses up your turn. 


Special Features 

At the center of the 9 X 9 board isa 
special square called a hypersquare. 
It absorbs laser beams and acts like 
a stationary hypercube. That is, if 


you try to move a piece onto it, the | 


piece disappears from its original 
position and reappears on a ran- 
domly selected empty square. This 
can happen only once per turn, 
however. 

Along the board on the left 
side of the screen are some geomet- 
| ric button shapes. The button la- 
beled Q allows you to quit playing 
at any time. When selected, this op- 
tion requires that you confirm your 
decision. 

The restart button (R) lets you 
start a new game without finishing 
the current game. (For instance, a 
player may be so hopelessly behind 
that he or she wants to resign.) 
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Again, the program asks that you 
confirm this choice. 


Firing The Laser 
The last button is the laser trigger. 
When it’s your turn, you can select 


this button to fire your laser. If your 


laser piece has been captured or de- 
stroyed, the laser button won't ap- 
pear on the screen during your turn. 

Figure 4 illustrates the general 
effect of firing the laser, Firing your 
laser takes only one move, but can 
be done only once per turn. There- 
fore, you may want to use your first 
move in a turn to aim the laser, ro- 
tate a reflecting piece to set up a 
bounce shot, or move another piece 
into position. 


Figure 4: The combination of 
reflective and transparent surfaces 
of the various pieces can result in 
complex bounce patterns. Here, the 
red laser takes advantage of the 
green beam splitter to destroy two 
blocks. 





Of course, you won't necessar- 
ily be firing the laser on every turn. 
Much of the strategy in Laser Chess 
involves moving and rotating your 
pieces to set up complex shots. It's 
important to realize that any laser 
hit on a piece’s nonreflective or 
nontransparent surface will destroy 
that piece. You can destroy your 
own pieces just as easily as you can 
destroy your opponent's. You can 
even zap your own laser, particu- 


| larly if you fire directly into the 
| 180-degree reflective surface of a 


straight mirror or block, or if you 
fail to anticipate the effects of a 
beam splitter. Be forewarned. 


Laser Chess Strategy 


| As in the conventional game of 


chess, much of the strategy in Laser 
Chess revolves around thoughtful 
placement of your pieces, Howev- 
er, the character of the game differs 





from that of chess in many ways. 
The laser, for example, can strike at 


| long distances and in more than 


one direction at once. And the hy- 


| percube adds an extra element of 


uncertainty. The best strategy for 
any particular game depends to a 
great extent on the skill and person- 
ality of your opponent. However, 
here are some general tips you may | 
find helpful. 

Get your mirrors out early. Use | 
them to gain the fullest potential of | 
your laser. Try to position mirror 
networks on both sides of the beam 
splitter so you can inflict as much 
damage as possible. 

Take advantage of the blocks. 
Since they ‘‘control’’ an area 
around them with their threat of 
capture, no other pieces can safely 
move within their range. Make 
your opponent work to displace 
them. Remember to rotate the re- 
flective side of a block to the most 
probable direction of laser fire. If 
you can prevent a laser from de- 
stroying the block, your opponent 
will most likely have to gang up on 


| it with two or more of his or her | 


own blocks. 

Use mirrors to protect your 
king. If you surround your king 
with straight and diagonal mirrors, | 
there is no way it can be hit by a la- | 
ser, Therefore, your opponent will 
have to break through your defense 
with blocks. (This is a pretty dirty 
trick, because when all of your op- 
ponent’s blocks have been used, 
your king is almost invulnerable.) 
Defending your king with blocks is 
also a good strategy. 

The hypercube should be used 
sparingly, since you have no idea 
where a relocated piece will reap- 
pear. Most players use the hyper- | 
cube as a last resort—if another 
piece is going to be destroyed any- 
way, it doesn’t hurt to take a chance 
and relocate it with the hypercube. 
Also, if your opponent's king is en- 


| circled with mirrors, you can march 


right in with your hypercube, fol- 
lowed by a block. This tactic may 
displace your opponent's defense, 
forcing him to evacuate the king 
from its mirrored fortress. Escorting 
the hypercube with an adjacent 
block prevents the opponent from 
attacking the hypercube with his or 


| her king. Your opponent's only op- 


tions will be to flee or be displaced. 
See program listing on page 83. @ 








Some people really like work- geoDebugger allows your pro- 
ing on their machines. And then gram to be tested in memory with 
there are some who prefer to do full symbolic disassembly, along 
their tinkering under the hood. For | with line assembly for patching 
those of you who can’t wait to get | : & code in memory. It also allows 
your hands greasy, we proudly / “= your code to be single-stepped or 
introduce geoProgrammer. The top-stepped, with sub-routines fully 
most sophisticated machine Gr executed. It can stop a running pro- 
language programming tool on gram with one key, or use up 
the market. to eight conditional break- 



















With geoProgrammer, you get tise te points. When your program 

the same kind of technology we use 4 in ML ue 7 hits the breakpoint, it promi- 

; — Lo fds, : a ea 5 : : . : 
for evening our other pipeuets MER: We, Blk Gig | ais ees me er Hits at 
Which means you can write super- Lake *  ¥ +overlay window, leaving the 
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charged software. Pump your own iti OBS et . applications screen intact. 
programs.And assemble just about =| | ; Pro enough for you yet? Well, 


that's only a partial list of what 
you're in for. 


If you understood all that, 


any kind of application you can 
imagine. 


It reads and writes and 


stomps on bugs. Se read on. 

The first three toolsthat 9 9 * ""“ssess aS Chances are that we lost a lot 
any serious programmer needS (© tins of readers by now. But if you’re still 
are an assembler, alinkerand = | : with us, hang in there. You have the 
a debugger. So we've installed all ee makings of a real GEOS pro, All you 


need now are the right tools. 


three, complete with sample GEOS thes oe eb 
And all of them come in this 


applications that teach you the latest allow all Minds | 


programming tricks in seconds. of conditional assem- one handy box. 

geoAssembler not only reads —_jies, It has all the state-of-the-art 20 If you re Serious about pro- 
directly from geoWrite files, but faatires you'd exp ae including gramming,consider geoProgrammer. 
contains enough Pseudo Ops to some you probably orks thought After all, you’ve got nothing to lose 


—except your amateur status. 


possible. For example, integrating 
graphics Is as simple as cutting and 
Les tS A pasting the image from geoPaint 

5 St macro Library file directly into your program. 
MINT | geoLinker ties your program 
stort edress for piog | MOdules together, supporting 
keen |) 6©GEOS SEQ and VLIR applications 
| point to mean straetun and desk accessories. You can even 
a kal Seow mea use geoAssembler and geoLinker to GEO 


; tinlicat dome ; 7 7 . * 
‘Nitass tts or ret loon create non-GEOS applications. 


—— col, C1288. , rT Berkeley 
Softworks 


The brightest minds are working at Berkeley. 
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70 order call 1-800-443-0100 ext. 234 
geoProgrammer $69.95 


(California residents add 7% sales tax. ) 
$2.50 US/$5.50 Foreign for shipping and 
handling. Allow six weeks for delivery. 
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Basketball Sam & Ed 


Rhett Anderson and David Hensley, Jr. 


What better way to score a goal than to go through the hoop 
yourself? This delightfully clever arcade-style game for the 
Commodore 64 is guaranteed to provide hours of entertainment 
for young or old. Included are one- and two-player modes. Ex- 
cellent playability and outstanding graphics and sound make 
“Basketball Sam & Ed" a must for any game lover. One joy- 

_ stick is required for the one-player mode; two are required for 


the two-player mode. 


“Basketball Sam & Ed” is a whimsi- 
| cal version of one-on-one basket- 
ball that can be enjoyed by the 
whole family, young and old. Al- 
though the game is most fun when 
played by two people, a computer 
opponent is always ready for the 
challenge. 

Basketball Sam & Ed is written 
entirely in machine language, so 
you'll need to use the ““MLX” ma- 
chine language entry program 
found elsewhere in this issue to en- 
ter it. When MLX asks for a starting 
and ending address, respond with 
these values: 


Starting address: 
Ending address: 


0801 
18CO 


Be sure to save a copy to disk 
or tape after you finish typing. 
| Name the program SAM & ED if 
you wish to be able to use the ac- 
companying Basketball Sam & Ed 
Customizer program. (See below.) 
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Tip-off 

If you plan on playing the two- 
player version, plug two joysticks 
into the joystick ports before you 
turn on the computer. If you're 
playing against the computer, use a 
joystick plugged into port 2. 

Although Basketball Sam & Ed 
is a machine language program, it 
can be loaded, saved, and run just 
like a BASIC program, When you're 
ready to play, load the program and 
type RUN. The program prompt 
asks ONE PLAYER OR TWO? Re- 
spond by pressing 1 or 2. 

At the top of the screen is a 
scoreboard that shows Sam’s score, 
Ed's score, the period (1-4), and the 
amount of time left in the period. A 
scrolling message board provides 
you with announcements and im- 
portant information about the 
game, 

Sam and Ed, true to their dedi- 





Sam bounces off of Ed to make one last 
basket in this high-scoring game. 


cation to the sport, are basket- 
balls—with arms, legs, and faces. 
Sam is the orange ball and Ed is the 


| blue one. In one-player mode you 


control Sam, while the computer 
handles Ed. This mode offers a 
good way to learn to play Basket- 
ball Sam & Ed, since the computer 
plays a little better than most begin- 


| ning players. In two-player mode, 


Ed is controlled: by the player using 
the joystick in port 1. Sam is con- 
trolled by the player using the joy- 
stick in port 2. 

The joystick controls are easy 
to learn. You can run either left or 
right by moving the joystick in the 
appropriate direction. To jump, 
press the fire button, You can jump 





to the left, the right, or straight up 
| into the air, depending on the direc- 
tion of the joystick when you press 
the fire button. 

As in real basketball, the only 
way to score is by shooting the ball 
through the hoop. In Basketball 
Sam & Ed you can score in any of 
the three goals. Since you can’t 
jump high enough to score by going 
through the hoop, you'll have to 
bounce off of your opponent. It’s 
| not uncommon to bounce off your 
opponent, the floor, and a_ back- 
board before scoring—any way 
that you can make it into the basket 
counts. As in the real game, each 
| goal is worth two points. 

Once you're airborne, you 


have no control over your path, so — 


you'll have to time your jump just 
right to score. If you miss with your 
jump, your opponent may be able 
to take advantage of your helpless 
bouncing to score. 

The game begins with Sam and 
-Ed bouncing wildly around the 
screen, When both players land on 
| their feet, the first of four periods 
begins. Each period lasts for 10 
game minutes, which is equivalent 
| to about 2 minutes and 40 seconds 
| in realtime. At the end of each peri- 
od—when the timer reaches 00:00 
and you hear “‘Sweet Georgia 
Brown’’—the players lose control 
of Sam and Ed, but if either scores 
before he stops bouncing, the goal 
counts. 

If the score is tied at the end of 
the fourth quarter, an overtime pe- 
riod, which is the same length as a 
regular game period, must be 
played. You'll be given as many 
overtime periods as you need to de- 
termine a winner. 

When the game ends, the 
screen freezes so that you can view 
the score, To start a new game, 
press any key. If no key is pressed 
after approximately 15 seconds, an- 
other game begins automatically. 

Press the Commodore key to 
| pause the game. Press it again to re- 
sume play. RUN/STOP/RESTORE 
| stops the game. Type RUN to 
restart. 


Strategy 

Basketball Sam & Ed looks and 
plays like an arcade action game, 
but after playing a few games you'll 
develop strategies. Most players 
eventually come up with their own 





‘“‘plays’’—ways of timing their 
jumps so that they score or keep 


their opponent from scoring. For || 


example, it’s possible to block a 
goal-bound opponent by hitting 
him withthe side of your head as 
he bounces on the ground. It’s also 
possible to score two baskets in a 
row after your opponent scores 


one. Both moves (especially the lat- 


ter one) demand quick thinking and 
some practice. 

Keep your eye on the clock and 
don’t forget to make that last scor- 
ing attempt as time runs out. 


Customizing The Game 

If you use a black-and-white TV or 
monitor to play Basketball Sam & 
Ed, you may not be able to tell Sam 
and Ed apart. To solve this prob- 
lem, we've included a customizing 


program written in BASIC. You can | 


use this program to make your own 


modifications. (A disk drive is re- | 


quired to use this program.) The 
screen colors and the body and fea- 


| ture colors of both Sam and Ed can 


be changed. Three of the scrolling 
messages can also be changed. You 
can also make the periods shorter 
so the game takes less time to play. 


Type in Programs 2 and 3 
(using the Automatic Proofreader 
program found elsewhere in this is- 
sue), and save them on the same 
disk as SAM & ED (Program 1). 
You should save Program 3 with 
the name S & E CUSTOMIZER, 
since this is the name Program 2 at- 
tempts to load (line 40), Then load 
and run Program 2, the Basketball 
Sam & Ed Customizer Loader. This 
program will first reconfigure mem- 
ory, then automatically load Pro- 
gram 3. (Do not run Program 3 
directly—certain BASIC pointers 
need to be set by the customizer 
loader, Program 2.) Follow the in- 
structions and prompts given by 
the Customizer. When you've fin- 
ished making your changes, you 
are prompted to put a disk into the 
drive. After inserting the disk, press 
RETURN. A new file called CUS- 
TOM SAM & ED is written to this 
disk. If the disk already contains a 
previous version of CUSTOM SAM 
& ED, the old version will be 
scratched before the new one is 
written. The customizer program 


| does not alter the original SAM & 


ED program file. 


See program listings on page 86. @ 


Copies 

of articles 
from this 
publication 
are now 
available 


from the 
UMI Article 


Clearinghouse. 


Xe) mp note) acm inlichannr-laceye: 
about the Clearinghouse, 
please fill out and mail back 
the coupon below. 


Torna 
UMUArticle, 
Clearinghouse 





Yes! | would like to know more about UMI 

Article Clearinghouse. | am interested in 

electronic ordering through the following 

system(s): 

12 DIALOG/Dialorder C) ITT Dialcom 

_] OnTyme LJ OCLC ILL 

Subsystem 

C2 Other (please specify)___ EEE 

[) 1 am interested in sending my order by 
mail. 

LJ Please send me your current catalog and 
user instructions for the system(s) | 
checked above. 


Name 
Title 
Institution/Company 


Leann 
0 ————————— 
Chorale Zip 

Phone ( ) 








Mail to: University Microfilms International 
300 North Zeeb Road, Box 91 Ann Arbor, MI 48106 


COMPUTE!'s Gazette Special 1988 issue 


13 





Chain Reaction 


Mark Tuttle 


| In this explosive strategy game, the contest is never finished 
until your last bomb has been thrown. A joystick is required. 


“Chain Reaction” is a clever strate- 
gy game for one or two players. 
Whether you play against the com- 
puter or another human, the objec- 
tive is the same: to eliminate all of 
your opponent’s bomb-shaped 
pieces from the field of play. The 
game is played ona5 X 6 grid of 
squares, and the players alternate 
turns, placing one bomb in a square 
on each turn. 

The results of a move depend 


on how many bombs are already in | 


| the chosen square and adjacent 
squares. Whenever any square 


| reaches ‘‘critical mass,” it explodes _ 


and sends its bombs into neighbor- 
ing squares. If those squares are al- 
ready loaded to capacity, they 
explode too, creating a chain reac- 
tion that can engulf a large area of 
the board. 

Type in and save a copy of the 


program. 
Bomb Begets Bomb 


When you run Chain Reaction, it 
_ begins by asking whether you wish 
to play with one or two players. If 
you've never played before, you 
may want to play a game or two 
against the computer to learn what 
sort of strategies it favors. When 
you choose to play against the com- 
puter, the program also asks 
whether you'd like the computer to 
| take the first turn. 

The first part of most games in- 
_ volves placement of initial pieces, 


without many explosions. As the | 
board fills up, however, explosions | 


occur with increasing frequency. 
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Play continues until one player's 


pieces are completely eliminated 


from the board. 

The position of a square in the 
grid determines how many bombs 
it requires to create an explosion. A 
corner square can hold a maximum 
of one bomb, When you place a sec- 
ond bomb in a corner square that 
already holds one, both bombs ex- 


| plode, sending a bomb of your 


color into two neighboring squares. 
After an explosion, the original 
square is emptied. 

Other squares require more 
bombs to create an explosion. A 
border square that isn’t on a corner 
can hold a maximum of two bombs. 
When you place a third bomb ina 
border square, its explosion sends 
three bombs into the squares that 
adjoin it. Squares in the center of 
the game board hold the most 
bombs and also create the most 
devastating explosions. When you 
place a fourth bomb in a central 
square, it sends four bombs into 
squares which adjoin that position, 

When an explosion sends 
bombs into adjacent squares, any 
bombs in that square change color 
to match the color of the exploding 


| bombs. Should one of the adjoining 


squares surpass its limit, that 
square, too, will explode, creating 
the potential for even more explo- 
sions. This process continues until 
no more explosions are possible, 
Thus, the situation in Chain 
Reaction is often volatile. The lead 
frequently seesaws back and forth 
between players, as each creates in- 


CHAIR RECTION 





“Chain Reaction” for the Commodore 
64, an explosive strategy game. 


creasingly more widespread chain 
reactions. Even if defeat seems al- 
most certain, you can often regain 
the lead with clever play. When a 
game ends, the program announces 
the winner and permits you to play 
a new game or quit. 

Like other games of strategy 
and placement, Chain Reaction re- 
wards the player who can think 
ahead. At first, you may be tempted 
to start making explosions as quick- 
ly as possible, But that’s not always 
the best long-term tactic. By spread- 
ing bombs of your color throughout 
the board, you may be able to sur- 
vive chain reactions that would 
otherwise wipe you out. 

The game requires at least one 
joystick (plug the joystick into port 
2 if you are using one joystick). If 
you choose the two-player option, 
the program also asks whether you 
wish to use one or two joysticks. A 
movable cursor of your color indi- 
cates your current position on the 
board. To place a bomb, move the 
cursor to the desired square and 
press the joystick button. 

See program listing on page 95. @ 
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Anthony Bertram 


It's the Friday night title bout in this exciting two-player ar- 
cade-style game for the Commodore 64. Two joysticks are 


required. 


The bell rings just in time—you’re 
on your last legs. But after a short 
breather, you're ready to try again 
for the heavyweight title in ‘“Ring- 
side Boxing.” 

Ringside Boxing is a two-play- 
er game that requires skill, strategy, 
and endurance, The match lasts 
three rounds—unless there's a 
knockout, of course. 


Jabs, Hooks, And Blocks 

The game is simple to play—there 
are only a few moves to learn—but 
with two evenly matched players 
it's not easy for either to win. Move 
the stick diagonally up and toward 
the other player for a jab. Move it 
diagonally down and toward your 
opponent for a hook. To block, 
push the joystick straight up or 
down. A push on the fire button ex- 
ecutes your command. To move left 
or right, just push the joystick in the 
corresponding direction. 

Each round lasts for three min- 
utes. The clock at the top of the 
screen keeps the time. When the 
bell sounds at the end of the round, 
the two fighters automatically re- 
turn to their corners. During the 
break, the boxers’ energy goes up 
slightly. 

Displayed above each player is 





an energy rating. It’s important to 
keep an eye on this number. If your 
energy sinks to 25 percent or less, 
you'll be knocked down with the 
next punch, If it sinks to 15 percent 
or less, the next punch landed will 
be a knockout. Energy is lost two 


ways: by punching and by getting © 
punched. Throwing a jab costs one | 
| point of energy; getting hit costs 


two. Throwing a hook costs two 


points; getting hit with one costs 


four, Energy is constantly being re- 
plenished. If you find that yours is 


| getting too low, it’s a good idea to 


block and back away until the end 
of the round. 

If the fight goes the full three 
rounds, the score will decide the 
champion. Five points are given for 
a scoring jab and ten for a hook. In 
case of a tie, the match goes to the 
defending champion—the boxer on 
the left who wears the purple 
trunks. 

In the event of a knockdown, 
the count clock begins a ten-second 
count. If the player can’t get up in 
time, the match is over. 


Typing It In 

Ringside Boxing is written entirely 
in machine language. Type it in 
using “‘MLX,"’ the machine lan- 





Retde Boxing 


TNS 
3 


UN) 
o | 





You can employ jabs, hooks, and blocks 
in this two-player action game for the 


guage entry program found else- 
where in this issue. When you run 
MLX, you'll be asked for a starting 
address and an ending address, The 
correct values for Ringside Boxing 
are: 


0801 
1AB0 


When you're finished typing in all 
the data, be sure to save a copy to 
disk or tape before you exit from 
MLX. Although Ringside Boxing is 
written entirely in machine lan- 
guage, it can be loaded and run just 
like a BASIC program. To load the 
program, type LOAD“ filename’’,8 
(tape users should substitute a 1 for 


Starting address; 
Ending address; 


the 8 in this statement) where file- 
name is the name you used to save 


the file. Then type RUN to start the 
game. 
See program listing on page 89. @ 
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Euchre 


David Shimoda 


Here’s a finely detailed implementation of the popular card 

| game of Euchre. The author originally wrote the program in 
Pascal on an IBM PC. He then translated the Pascal program 
to BASIC for the Commodore 64. A joystick is optional. 


“Euchre” is a four-handed transla- 
tion of the popular card game of the 
same name. In this version, you 
play with a computer partner 
against two computer opponents, 
The computer will deal the cards, 
keep score, and play your partner's 
as well as your opponents’ hands. 
Even better, it never gets bored or 
commits blunders such as trumping 
your ace, Nearly all the subtleties of 


the original card game are repro- | 


duced faithfully, including lone 
hands, short suits, and more. You 
can even choose different personal- 
ities for your partner and oppo- 
| nents. Type in the program for your 
computer and read the special-ap- 
plication notes before you run it. 


Computer Personalities 
The game begins by asking you to 
choose personalities for your part- 
ner and your opponents. Move the 
reverse-video cursor to your 
choices, and make selections by 
pressing the joystick button or the 
Return key. 

The normal personality plays a 
more cautious game, while the ag- 


gressive personality tends to take | 


more risks. Both opponents must 
have the same personality, but the 
partner's personality is chosen sep- 
arately. This makes the game much 
more varied than if the computer 
players always stick to the same, 
predictable strategy. One of the 
more difficult combinations is to 
choose a normal partner and ag- 
gressive opponents. Of course, your 
own style of play will have an im- 
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pact on which combination you 
prefer. 


Dealing And Trump 


This Euchre variation uses only 24 


| cards from the standard 52-card | 


deck. Each suit includes only the 9, 


| 10, jack, queen, king, and ace. (The 
ace is high.) Before actual play be- | 
gins, the first dealer must be select- 
ed. This is done by dealing out | 


cards until a black jack is thrown. 


The first person who receives a | 
| up in the first circuit of the table, 


black jack becomes the first dealer. 
After each hand, the position of 
dealer passes to the next player in 
clockwise order. 


The dealer deals out 5 cards to | 
| each player and then places 1 card, 
face up, on the center of the table. — 
The program automatically deals | 


the cards, as it handles many other 
details in this game. As a conse- 


quence of this scheme, only 21 of | 


the 24 cards are in play for any giv- 


|en hand. (Three cards are always 


left unplayed.) 
The next step is to choose 


| trump; the trump suit is the most 
| powerful of the four suits for the 


current hand. Trump is determined 
by moving around the table in 


| clockwise order, giving each player 


an opportunity to choose whether 
the dealer should pick up the center 
card. Each player can either pass or 
order up—order the dealer to pick 
up the center card. When the dealer 
is forced to take the center card, that 
card’s suit becomes trump, and the 
dealer discards one card. The com- 
puter players, of course, decide for 





citecanee 


Bad! a 





“Euchre” for the Commodore 64 | 
(and 128 in 64 mode) reproduces the — 
subtleties of the familiar card game. 


themselves whether to pass or or- 
der up in this phase of the game. | 
If no player chooses to order 


each player then has a chance to | 


| pick any other suit as trump. If no 


player chooses trump on the second 
circuit, the hand is thrown out com- 
pletely, and another is dealt. 


Lone Hands 


On certain occasions, a player may | 
| choose to exclude his partner from | 


play, a tactic which is known as |} 
playing lonehand, The player who 
chooses trump must choose at the 
same time whether or not to play 
lonehand, If a player orders up a 
card into his partner’s hand, the 
player who ordered up must play 
lonehand. (If your partner is the 
dealer and you order up, you must 
play lonehana). 

For instance, you might want 
to play lonehand in a case where 
you hold most of the high cards ina 
suit, and your partner is the dealer, 
and the center card is a high card of 
your strong suit. By excluding your 
partner and playing lonehand, you 
are in a very strong position to take 
most or all of the tricks. 








Tricks And Hands 
A hand consists of five tricks. A 
trick consists of all players laying 


| down one card. The player to the | 


left of the dealer throws down the 
first card in the first trick. Subse- 
quent tricks are begun by the win- 


ner of the previous trick. Suit must | 


be followed within a trick. That is, 
you must throw a card of the suit 
which was led, as long as you have 
-any card of that suit. 


If no trump cards are thrown in | 


a trick, the trick is won by the play- 
er who laid the highest card of the 
leading suit. If trump is thrown, 


then the highest trump card takes - 


the trick. 

For all suits except the trump 
suit, the rank of the cards follows 
the usual order. (The 9 is low, and 
the ace is high.) For the trump suit, 
however, the jack is the highest- 
ranking card. The jack of the same 
color, but different suit, is consid- 


ered part of the trump suit—and it | 


is the second highest ranking card. 
For example, if the trump suit is 
chosen as clubs, it follows this 
ranking: 


jack of clubs 
jack of spades 
ace of clubs 
king of clubs 
queen of clubs 
10 of clubs 

9 of clubs 


A hand is won by the side 
which wins a majority of tricks 
(three or more), If you or your part- 
ner orders up a card, your side must 
take the majority of tricks in that 
hand or else be euchred, meaning 
that the opposite side gets two extra 
points. 


Scoring 

A game of Euchre ends when one 
side accumulates ten or more 
points. You score one point for win- 
ning a hand, two points for winning 
all the tricks in a hand, and four 
| points for winning all the tricks 
lonehand. 

The game can be played with 
either a joystick or the keyboard. To 
play with the keyboard, use the 
cursor keys to move the colored 
cursor, and press RETURN to make 
a selection. 

See program listing on page 108. @ 





Miami Ice 


Jeff Kulczycki 


Here's an action game that challenges both your driving skills 
and powers of concentration. Originally written for the Com- 


| modore 128 with a disk drive, “Miami Ice” has been translated | 


to work on the Commodore 64 as well. A joystick is required. 


Ah, Miami—sun city of the South. 
A sparkling metropolis blessed 
with a tropical climate, palm trees, 
beaches, revived art deco architec- 
ture, stylish pastels, and classy ele- 
gance. Almost paradise. 

You wake up on another 
bright, sunny Miami morning, sip a 
glass of freshly squeezed orange 
juice, don your white linen suit and 


sunglasses, and stroll outside— | 
| you've got to make it to the parking 


then get the shock of your life. 
What's going on here? Over- 
night, a freak shift in the jet streams 
has piped a blistering cold front 
down from Ohio, The weatherman 
had piedicted a brief shower last 
evening, but that’s not what hap- 
pened. Instead, the Florida penin- 


sula was blasted by the worst ice | 


storm in 400 years. The Everglades 


are frozen solid. The pink flamin- | 
' versions of “Miami Ice’ work basi- 
cally the same. Using a joystick, 


gos are blue, And the streets of Mi- 
ami are coated with a shimmering 
layer of slippery ice. 

As you start your car—the 
pampered engine coughs and sput- 
ters in the bitter cold—you wonder 
what it’s going to be like driving to 
work. A Miami native, you ve nev- 
er driven on ice before. In fact, 
you've never even seen this much 


ice since your boss's retirement par- | 


ty last year, when the caterers made 
that life-size ice sculpture of Ponce 
de Leon. You've heard the horror 
stories told by tourists about winter 
driving conditions up North, but 





never thought it could happen to 
you—not here, in Miami. 

The minute you pull out onto 
the street, your worst fears come 
true, When you step on the gas ped- 
al, the wheels spin and the car ac- 


| celerates sluggishly. When you turn 


the steering wheel, the car slides all 
over the road. And when you step 
on the brakes—well, forget it. 

You realize, desperately, that 


garage across town without smash- 
ing your car to smithereens. It 


_ won't be easy. But at least-there’s 


one thing in your favor—you’ve 
got the whole road to yourself, Ev- 
eryone else, it seems, had the good 
sense to stay home. 


Out Of Control 


Despite minor variations, the two 


you have to drive your car over ice- 
covered streets to reach the safety 
of a garage. The joystick button is 
the gas pedal, and pushing the stick 
right or left steers the car in the cor- 
responding direction. 

But here’s the twist—the car 
doesn’t respond instantly to your 
commands. It tends to slide in the 
same direction even after you've 
steered it toward another direction. 
Then, when you try to recover, you 
often overcorrect and start sliding 
in yet another new direction. It’s an 
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inertial nightmare—much like real 
winter driving. 

When you hit a guardrail or 
some other obstruction, your car 
cracks up, You get three cars per 
game. If you reach the safety of the 
garage, the game isn't over. Instead, 
you advance to another screen 


whose streets are even harder to | 


navigate. 

The number of points you 
score depends on how soon you 
| reach the garage. As an incentive to 
recklessness, a timer starts counting 
down when you begin each new 
screen, If you reach the garage, you 


score the number of points left on | 


the timer, If the timer runs out, you 
can still reach the garage, but you 
| won't get any points. However, you 
| will advance to the next screen. 

Be sure to read the special in- 
structions for each version before 
typing in the program and playing 
the game. 


Commodore 128 

The 128 version of Miami Ice (Pro- 
| gram 1) is written completely in 
| BASIC using BASIC 7,0’s excellent 


sprite commands. It runs as fastand | 


as smoothly as the other version, 
which employs machine language. 


Plug a joystick into port 2 and | 


leave a disk in the drive. After each 


game, if your score ranks you | 


among the top players, the program 
lets you enter your initials and then 
saves the high score data to disk. 
To complete each level, you 
merely have to steer your car into 
the parking garage from any angle. 


MLX before you begin entering the 
data from Program 2. When you 
first run MLX, you'll be asked to 
supply a starting address and an 
ending address. Here are the ad- 
dresses you'll need for Miami Ice: 


Starting address: 0801 
Ending address: 1320 


Be sure to save at least one 
copy before you exit MLX. Al- 
though the 64 version of Miami Ice 
is written in machine language, you 
start the program as if it were writ- 
ten in BASIC: load the program, 
then type RUN and press RETURN. 


Plug a joystick into port 1. To— 


steer your car safely into the park- 
ing garage and advance to the next 
screen, you have to enter the front 
of the garage without bumping into 
the black lines which mark its three 
walls. Indicators on the screen 
show the timer value and your cur- 
rent score. 

There are seven screens in all. 
The game normally starts at screen 


| 1, but you can begin a new game at 


any screen you want by moving the 
joystick up or down to change the 


screen number. This lets you skip 
the easier screens as you become a 
better player, or peek at the hardest 
screens while you're still a 
beginner. 

See program listings on page 103. @ 


COMPUTE!’s Gazette is look- 
ing for utilities, games, 
applications, educational pro- 
grams, and tutorial articles. If 
you've created a program that 
you think other readers might 
enjoy or find useful, send it, 
on tape or disk, to: 
Submissions Reviewer 
COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please enclose an SASE if you 
wish to have the materials 
returned. 

Articles are reviewed within 
four weeks of submission. 





Save Your Copies of COMPUTE! 
Protect your back issues of COMPUTE! 
in durable binders or library cases. 
Each binder or case is custom-made 
in flag-blue binding with embossed 
white lettering. Each holds a year of 


COMPUTE!. Order several and keep 
your issues of COMPUTE! neatly or- 


There are a total of four screens, 
and each screen displays the timer 
value in the upper-left corner and 


ganized for quick reference. 
(These binders make great 
gifts, too!) 





your current score immediately to 
ine right. 

The 128 version of Miami Ice 
attempts to keep a high score file on 
the disk. If you want the program to 
keep track of high scores, be sure to 
copy the program to a disk that is 
not write protected. 


' Commodore 64 

The 64 version of Miami Ice is writ- 
ten completely in machine lan- 
guage and must be entered with the 
-Commodore 64 version of the 
““MLX” machine language entry 


| program found elsewhere in this is- | 


sue, Be sure you read and under- 
stand the instructions for using 
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Binders 

$9.95 each: 
3 for $27.95; 
6 for $52.95 


Cases: 

$7.95 each: 
3 for $21.95; 
6 for $39.95 


(Please add $2.50 per unit for orders 
outside the U.S.) 


Send in your prepaid order with the 
attached coupon 


Mail to; Jesse Jones Industries. P.O. Box 5120, 
Dept. Code COTE, Philadelphia, PA 1914] 


Please send me 


only.) 

Name 

Address , 
City 

State 


Satisfaction guaranteed or money refunded. 
Please allow 4-6 weeks for delivery. 


COMPUTE! 
Enclosed is my check or money order for $ —______ 


0 binders. 
. (U.S. funds 


Oi cases 





New from COMPUTE! 


War game simulations come alive with two new books from COMPUTE!. Whether you're dodging torpedoes, 
bombing targets, or planning to defend against an enemy invasion, these books contain the hints and strategies 
you need for a successful defense—and offense. There's historical information on actual battles, technical infor- 
mation about your war machines, plus many tips on using hidden features of the software. 





ELECTRONIC 
BATTLEFIELD 


Bob Guerra 


The Electronic Battlefield 
Bob Guerra 

ISBN 0-87455-117-X 
$12.95 






a A Le ky 


AL! 
AN. 





This comprehensive reference book on computer war games—how to play them and what strategies to use—will find a place on thousands of 
computer owners’ desks. Whether acting as fierce opponent or impartial referee, the computer is perfect for war game play. The Electronic 
Battlefield offers general and specific hints, tips, and play techniques for all the most popular computer games. Filled with detailed information 
on such games as Silent Service, Roadwar 2000, Field of Fire, Arctic Fox, and Balance of Power, this book will appeal to players of all ages 
and levels of experience. Also included in this book are undocumented features of games like F-15 Strike Eagle, command reference charts for 
many of the games, and even tips from the game designers. The perfect resource for any electronic war gamer. 


SUBMARINE 
COMMANDER 


Sub Commander: Tactics and Strategy for WWII Submarine Simulations 
Richard G. Sheffield 

ISBN 0-87455-127-7 

$12.95 





Run silent, run deep. This hands-on approach to popular submarine simulators like Silent Service, Gato, Sub Battle, and Up Periscope puts 
you at the periscope of an American boat in World War II. This collection of undersea warfare tactics and strategies will appeal to every simu- 
lator captain. Information about actual World War Il submarines, crews, and captains provides an excellent introduction. Detailed accounts of 
real submarine battles illustrate ways you can pilot your own electronic sub. The heart of the book outlines offensive and defensive tactics and 
maneuvers that bring you into torpedo range and get you out again safely. Learn how to decimate heavily escorted convoys, how to shoot 
“down the throat” at a charging destroyer, and how to weather determined-depth charge attacks. You'll be able to immediately apply these 
techniques and tricks to your own submarine software. 


Note: The books do not include any of the software products mentioned. 





To order COMPUTE! books, call toll free 1-800-346-6767 (in NY Please add $2.00 per book shipping and handling. NC residents 


212-887-8525) or write COMPUTE! Books, Customer Service, P.O. add 5 percent sales tax and NY residents add 8.25 percent sales 
Box 5038, F.D.R. Station, New York, NY 10150. Customer Service tax, Please allow 4-6 weeks for delivery. 

hours are 10:00 a.m. to 12:30 p.m. and 1:30 p.m. to 3:30 p.m. EST 

Monday through Friday. COMPUTE! books are available outside the United States from 


subsidiaries of McGraw-Hill International Book Company. 


COMPUTE! Publications, INC. 


A, Capital Cities/ABC, Inc. Company 





Sean Wagle 


Be ready and alert. A host of deadly enemies can make quick 
work of you in this frantically paced, multilevel arcade-action 
game for the 64. A joystick is required. 


“Omicron” is a game which creates | 
a universe full of hostile aliens. To 
play and win, you must survive 16 
waves of 15 enemies each. This is | 


anything but an easy task—you'll 


be facing some of the deadliest and | 


| f1 Expert 
f3° Pro 


| fastest creatures ever to visit the 
screen of your computer. 

Omicron is written partly in 
BASIC and partly in machine lan- 
guage (ML). First, type in and save 
| Program 1, the BASIC section of the 
| program, Since the BASIC section 
_ attempts to load the ML portion of 
the program, don’t run the program 
/ until you've typed in and saved 
| Program 2, 


Typing in Program 2, the ML | 


section of Omicron, requires use of 
the “MLX” machine language entry 
program found elsewhere in this is- 
sue, When you run MLX, you'll be 
asked for the starting and ending 
addresses of the data you'll be en- 
tering. For Omicron, respond with 
the following values: 

Starting Address: 33CE 

Ending Address: 43BD 


When you've finished typing | 


| in the data, save a copy to disk 
before leaving MLX. You must save 
| the data from Program 2 under the 


| name OMICRON ML, since that is | 


the name Program 1 looks for. If 
you're using tape instead of disk, 
change the ,8,1 at the end of line 10 
in Program 1 to ,1,1. Also, be sure 
to save the data for Program 2 im- 
mediately following Program 1 on 
the tape. 

When you're ready to play 
Omicron, make sure that a joystick 
is first plugged into port 2; then 
load and run the BASIC program. 
The game does not work properly un- 
less the joystick is plugged in before 
you run the program. When the title 
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screen appears, choose one of the 
four skill levels by pressing a func- 
tion key. It’s recommended that 
you start with the Rookie level (f7) 
so you can get used to game play. 
The skill levels are as follows: 


f5 Advanced 
f7 Rookie 


How To Play 

When the game begins, your first 
ship appears in the upper left cor- 
ner of the screen. You and your en- 
emies can move freely, but you'll 
bounce off the edges of the screen 
and off the status board in the cen- 
ter of the screen, which holds the 


score, current level, and number of | 


ships remaining. 

The first thing to master is the 
joystick control of your ship. You 
can fire missiles by pressing the fire 
button. To move, aim the joystick 
in the desired direction. Since your 
ship can build momentum, your di- 
rection does not change immediate- 
ly. The direction in which the ship 
points does not change unless you 


Enemies Points Color 


argon mine 10 cyan 
green 
purple 
yellow 


ricochet net 20 
splinter bomb 50 
100 


none 


fusion bomb 

indestructo yellow 
mystery mine 10-100 

| 200 

200 

400 

600 


cyan 
blue 
cyan 
yellow 


drifter 
bomber 


destroyer 


oe ee > Dn x iI o 


orange 





battle satellite 





Omicron 


press the fire button while moving 
the joystick, so with careful plan- 
ning you can move in one direction 
and shoot in another. 

To complete a level, you must 
eliminate all 15 enemies. If you lose 
a ship, you'll start over on the same 
level. A bonus of 1000 points is 
awarded if you make it through a 
level on your first try. Bonus ships 
are awarded after completing levels 


| 4, 8, and 12. 


Your Enemies 
At the beginning of each level, your 


| enemies are dark blue drifters. They 
| are harmless at this stage in their 


life cycle. As time passes, some of 
the drifters become cyan bombers. 
Bombers leave an assortment of 
deadly objects in their wake. See 
the table for a description of all the 


| enemies in Omicron. 


If they are not destroyed, 
bombers become yellow destroyers, 
Destroyers move twice as fast as 
bombers, and they shoot yellow 
missiles which are similiar to the 
ones you fire. Watch destroyers 
carefully—they can change their 
direction at the first corner they 
encounter. 

Near the end of the level, the | 
remaining enemies can become or- 
ange battle satellites, which fire like 
destroyers, leave bombs like bomb- 
ers, and bounce around the screen 
in a furious attack. Needless to say, 
you should try to kill these off as 
quickly as possible. 

If you wish to pause the game 
at any time, press SHIFT or SHIFT 
LOCK. If you use RUN/STO- 
P-RESTORE to break out of the 


| game, you cannot restart play sim- 
| ply by running Program 1 again. In- 


stead, you must turn the computer 
off and back on, then reload Pro- 
gram 1. 


See program listings on page 91. @ | 





Solarpix 


Simon Edgeworth 


Set the solar system in motion with this series of astronomical 
| simulations for the 64. You can also trace the orbits of Halley’s 
| and other comets, and look through a file of fascinating facts 


about our solar system. 


Whether you're new to stargazing 
or a veteran astronomer, this easy- 
to-use demonstration of the planets 
and comets is fun to watch. The 
program is divided into four parts: 
Sun and Planets, which simulates 
the movement of the planets 
around the sun; Sun, Earth and 
Moon, which shows how the 
phases of the moon are created by 
its orbit; Comets, which shows the 
path of Halley’s and other comets; 
and Facts, which lists the key prop- 
erties of each planet and the sun 
and moon. 

Type in “Solarpix’”’ using the 
“Automatic Proofreader,’” pub- 
lished regularly in the GAZETTE, 
then type RUN. In the first part, 
Sun and Planets, you can watch the 
orbits of up to five planets at once. 
The sun is stationary at the center 
of the screen. Select the innermost 
and outermost planets you'd like to 
| see, and a year from 1 to 2000. 
Press G to set them in motion, + to 
increase the speed, — to reduce the 


speed, and S to stop. Elapsed time | 


is displayed in years on the right 
side of the screen. 


Lunar Lore 
The second menu selection, “Sun, 
Earth, and Moon,” shows how the 


moon's orbit around the earth | 


causes its different phases. The 
earth is shown orbiting the sun, 
while the moon orbits the earth. 
The distance between the earth and 
the moon has been magnified by 30 
to make it visible. In the top right 
corner of the screen, the current ap- 
pearance of the moon is illustrated. 
| The elapsed time in days is dis- 
| played to the right. You can control 


the display using the G, S, +, and 
— keys as in the first part. 

The moon takes 27,3 days to 
orbit the earth. However, it’s 29.6 
days from one full moon to the 
next. If you watch the display care- 
fully, you can see why this is—the 
moon actually has to complete 
slightly more than one orbit around 
the earth to reach the same position 
relative to the sun. 

Because the moon’s orbit is 
slightly tilted, the moon, earth, and 
sun are normally never exactly 
aligned. On the rare occasions 
when they are, an eclipse occurs. If 
this happens at full moon, we see a 


moon, we see a solar eclipse. 


Comets 
The third menu selection shows 
what the orbits of comets look like. 
Planets and comets move in ellipti- 
cal orbits, which look like flattened 
circles. The extent to which the cir- 
cle is flattened is called its eccentric- 
ity, ranging from zero (circular) up 
to almost one. The eccentricities of 
the major planets range from Venus 
(almost zero) to Pluto (,25). A com- 
et with an eccentricity of one or 
more would leave the solar system. 
Enter a value between zero and 
-96 and press RETURN. Here are 
the names and eccentricities of 
some comets: Faye (.56), Finlay 
(.70), Enke (.85). To see a simula- 
tion of the orbit of Halley’s Comet, 
enter .96R. The R stands for 


bits in the opposite direction of the 
planets. 

Notice that the speed of a plan- 
et or comet varies as it moves 





around its orbit. It moves slowest 
when it’s furthest from the sun, and 
fastest when it’s closest to the sun, 


Facts And Figures 
The last part of Solarpix provides | 
some interesting facts about the so- 
lar system. From the menu, you can 
select a planet, the sun, or the 
moon, and view all the facts about 
it; or you can select a characteristic, 
such as mass or temperature, and 
compare the values for all the nine 
planets plus the sun and the moon. 
Because the distances from the 
planets to the sun are so hard to vi- 
sualize, I’ve added “Drive Time,’’ 
which shows the amount of time it 
would take to drive from a given 
planet to the sun while traveling at 
55 miles per hour. For the moon, 


the drive time is given for travel 
| from the moon to the earth. 
lunar eclipse. If it happens at new | 


Masses are given in units 
equivalent to the weight of the 
earth because the values in tons are 
too large to comprehend (the earth 
weighs about 6,588,000,000,000, 
000,000,000 tons). Densities are 
compared with water (notice that 
Saturn is less dense than water). 
Temperatures are average surface 
temperatures. Moons are listed in 
order of distance from their planet, 
starting with the closest. Moons 
listed as ‘’X’”’ have not yet been 
named, 

For the amateur astronomer, 
here are a few technical details. In 
Solarpix, all orbits are assumed to 


_be on the same plane. For Pluto, 


however, true elliptical motion is 
simulated. The planet screen is ori- | 


| ented with Pluto’s aphelion on the | 


right, and the positions of the plan- 


3 | ets are calculated from their actual 
reverse, because Halley’s Comet or- 


positions on October 27, 1984, All 
of the graphics screens show views 
from ecliptic north. 

See program listing on page 78. @ 
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Math Dungeon 


Richard Lowe 


Can you escape the dungeon by finding the key which opens 
the door? First, you must get by the math monsters who block 


your way, asking questions abo 
| plication, and division. 


At the beginning of “Math Dun- 
geon, you are asked for a difficulty 
level, Levels one and two deal only 
with addition and subtraction of 


positive numbers. Level three adds | 


multiplication and division (still 
only positive numbers), Four brings 
in negative numbers, covering mul- 
tiplication and division. And five 
asks all four types of questions 
about positive or negative numbers. 

You begin at a gate outside an 


ut addition, subtraction, multi- 


old mansion. First, find a way 
through the gate and get to the 
front door, which is closed. If you 
can get the door open, you can en- 
ter the mansion and you'll be 
whisked to the underground dun- 
geon. Your adventure begins. 

As you wander through the 
dungeon, you may find different 
colored keys and doors. The keys 
are color coded according to the 
door they open. One of the doors 


Super Graphix 


Super Graphix a 
» MEICe 


= 


Includes: 
Utility Disk 
With 
2/7 Fonts 
And 
Font 
Creator 


GRAPHICS and FONTS plus an 8K BUFFER for the ultimate in performance and 
speed. The XETEC Super Graphix interface for Commodore Computers now 
offers a new high in technology with these features: 


* 8K Buffer Standard 
* 10 Printing Modes 
«3 Internal Screen Dumps 
* Extensive Command Channel 
* Reset Button to Halt Printing 
from Buffer 
* Switch Settings on Label for 
Quick Reference 
* Correspondence Quality Font Built-In 


Seo caam list$99.95 e 


« Capable of Storing 2 Additional Fonts 

« Correct Graphics/Text Aspect Ratio for 
all Major Printers 

«8 Active Switches with Changes 
Constantly Monitored 

* Internal Fonts Support Super-script, 
Sub-script, Underlining, Bold-face and 
Choice of 9 Pitches 


Includes Lifetime Warranty 











leads out of the dungeon (to end the 
game). . 

In your search for the exit, you 
may also find a map. It can be very 
helpful. Once you get it, type MAP 
to see where you are. The map uses 
R to represent rooms, H for hall- 
ways, M for monsters, and * for 
your location. 


The Command Vocabulary 
This game recognizes a limited 
number of words. The verbs are: 


GET Pick up an object 
INV Inventory 
LOOK Look around 
OPEN Open a door 
CLOSE Close a door 
ON Turn on a light 
OFF Turn off a light 
MAP Look at the map 
N Go North 
5 Go South 
E Go East 
Ww Go West 

The possible nouns include: 
GATE LIGHT 
DOOR MILKBOX 
NOTE GOLD 
KEY MAP 


And if you find yourself in a 
jam, typing ALGEBRA may get you 
out. Certain commands need only a 
single word or letter, like LOOK or 
N. Others combine a noun with a 
verb, like GET GOLD. The verb 
usually goes first. 

Information about the dun- 


| geon is kept in an array FL(10,10), 
| which is filled with rooms, hall- 
| ways, and monsters in lines 


1620-1850. Lines 1620-1640 ran- 
domly place monsters, according to 


| the level chosen at the beginning. 
_Lines 1650-1680 randomly place 


hallways and rooms throughout the 
dungeon. Lines 1690-1710 make 
sure a path is available to each 
monster. Lines 1720-1770 random- 
ly place colored keys and doors 
around the array. 

See program listing on page 81. 





Vocab Bui 


William J. Treanor 


This program not only helps increase vocabulary, but also as- 
sists students who must memorize words for spelling, biology, 
history, or other classes. Up to 100 words and definitions can 
be entered and saved to tape or disk. 


My son’s sixth grade teacher regu- 
larly distributes lists of words and 
their definitions to the students. 
The children then take a spelling 
| test at the end of the week. 
‘Vocab Builder’ was originally 
| written to help my son prepare for 
these tests. But it was soon obvious 
that it could be used for other sub- 
jects—a history drill, say, with facts 
and dates in place of vocabulary 
words. Vocab Builder has even 
been used by college students 
learning medical terminology. The 
program flow is fairly straightfor- 
ward; modifications (using a print- 
er, for example) should be easy to 
make, 


Four Menu Options 

| Enter the program, save it, and type 
RUN. First, you are asked to input 
| your name, which is printed at the 
top of the screen. 

Next, you'll see the main 
menu, which gives you four op- 
tions: Enter new words, Study, 
Test, or End, 

If you choose to enter new 
words, you are asked how many 
words will be in this particular file. 
You must then type in the words 
and their definitions. If you make a 
mistake, don’t worry, you'll have a 


chance to correct it later. When all 
words and definitions are entered, 
they are printed on the screen. You 
can fix mistakes at this point. 

The program then saves the 
word list as a sequential file on tape 
or disk. You are prompted for the 
date, which becomes part of the 
filename. (Note: Since the date is 
part of the filename, and the file- 
name must be unique, be sure to 
use a different filename if you cre- 
ate a second quiz on the same day. 


| For example, if you create a quiz 
named 11-21-84, use 11-21-84.1.) 


The program then returns to the 
main menu. 

The second option from the 
menu allows you to study words 
which were previously entered. 


First, you enter the date of the test — 
and the file is loaded from tape or | 


disk (depending on your response, 
T or D, to the prompt). 

The list is put into random or- 
der. A definition appears on the 
screen and the student is given 
three chances to enter the corre- 


sponding word, Spelling is impor- | 


tant. If the word is correct, the 
student is congratulated. If the first 
two letters are correct but the word 
is misspelled, the message YOU'RE 


| CLOSE appears. 





Ider 


When all words have been 
covered, the score (number of an- 


| swers right and wrong) is dis- 


played. Any word which was 
answered wrong on the first at- 
tempt is counted as incorrect. The 


| student is then given a list of which 


words were incorrect and need fur- 


| ther study. 


The test option is similar to the 
studying option, but the student 
has only one chance to supply the 
correct word. 

The final option, End, allows 
you to exit the program. 


A Tireless Teacher 

For young children, Vocab Builder 
may help develop a sense of re- 
sponsibility. They can choose when 
to study and how long. They don't 
have to wait until a parent or sibling 
has some free time to help them | 
with schoolwork. 

The child is addressed by 
name, so it becomes his or her com- 
puter program. A computer doesn't 
tire of helping the child, or lose its 
patience. And it does not chastise 
the child for answering incorrectly. 


| Words are randomized automati- 
cally (so the student actually has to 


learn the words rather than memo- 
rize them in order). 

Memorizing can be a chore. 
Vocab Builder can help relieve 


. some of the tedium. 


See program listing on page 121. @ 
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I-Res PRINT 


For Commodore 64 


Scott M. Petty 


This short machine language utility allows you to quickly print 
| characters on the Commodore 64's high-resolution graphics 


screen. 


How many times have you thought 
of an idea for a game, replete with 
| high-resolution screens, colorful 
animated sprites, and onscreen 
scoring and timing? Many different 
utilities are available for drawing 
shapes on a hi-res screen, but most 
of them omit one important item: 
printing text. Of course, you can al- 
ways copy character patterns onto 


the hi-res screen in BASIC, but the 
process is painfully slow. “Hi-Res 
PRINT” is a short machine lan- 
guage routine which allows you to 
print letters and numbers anywhere 
/on a hi-res screen, using different 
colors and reverse mode if desired. 
Because it’s done in machine lan- 
guage, the process Is as fast as using 
normal PRINT statements in 
BASIC. And you can use the rou- 
tine from BASIC, without having 
| any machine language knowledge. 


| Typing The Programs 

You'll need to type in four short 
programs, Program 1 is the ma- 
chine language (ML) program itself. 
Program 2 creates an abbreviated 
character set for use by the ML pro- 
gram, Program 3 demonstrates hi- 
res character printing, and Program 
4 is used to relocate the ML to a dif- 
ferent memory area. 


Begin by typing in Program 1 


with the “MLX” machine language | 


entry program found elsewhere in 
this issue. Read the MLX instruc- 
tions carefully and be sure to save a 
| copy of the program when you are 
done typing. Here are the starting 
and ending addresses for Program 1: 
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CoO00 
C20F 


It is important that you save 
this program with the filename 
HRPRINT so that the other pro- 
grams can load it by that name. 

The ML program will need a 


Starting address: 
Ending address: 


set of character patterns to use for 


printing on the hi-res screen. Pro- 


gram 2 (CHARSETMAKER) is a 
BASIC program that makes a disk 


file containing data for the first 64 
characters of the Commodore 64 
character set. Type in Program 2 
and save a copy. 

The character file which you 


| create with Program 2 will load at 


any address that you specify. For 


| now, supply the address indicated 


below so that you can use this char- 
acter set with the demonstration 
program (Program 3). Run Program 


2. When it asks for the address of | 


the character set, enter the number 


16384 and press RETURN. The. 


program then asks you to name the 
file in which this character set will 
be stored. Type in HRCHARSET 
and press RETURN. Again, it is im- 
portant to use this particular file- 
name so that Program 3 can load 
the file from disk. After you answer 
the second prompt, the program 
writes the file to disk and ends. 
Type in and save Programs 3 
and 4, then load and run Program 3 
(DEMO) for a demonstration. The 
program begins by loading the files 
HRPRINT and HRCHARSET into 
the correct memory locations and by 
clearing the hi-res screen. Then it 
draws a sine wave to prove that you 
are indeed looking at a hi-res screen. 


Finally, the program prints several 
text messages in different colors. In 
the left portion of the screen are two 
example score and timer displays 
which continue to update as long as 
the program runs. To end the dem- 
onstration and return to the normal 
screen, press any key. 


Loading From A Program 

Let's learn how to use the machine 
language routine by observing how 
Program 3 handles it. Several pre- 
paratory steps are required, First, 
the BASIC program must load both | 
the ML code and the special charac- 
ter set which it uses. Program 3 
does this in lines 110-120: 


SX 1000 GRAPHIC 1,1:FORJ=150 T | 
O 2@ STEP -3@:CIRCLE 1 
, 158,180, 0, 75: NEXT 
DRAW 1,158,25 TO 158,1 
75:DRAW 1,708,468 TO 246 
,40:DRAW 1,23,68 TO 29 
2,68 

DRAW 1,8,100 TO 388,18 
@:DRAW 1,23,132 TO 292 
,132:DRAW 1,708,168 TO 
[SPACE }246,160 

SJ 1030 CHAR 1,17,2, "EARTH" 


CH 1818 


QB 1626 


These lines should appear at 
the very beginning of the program, 
before any other BASIC statements 
(except REMarks, which the com- 
puter ignores). If you are not famil- 
iar with how LOAD works in 
program mode, these lines may 
look somewhat baffling. Here is an 
explanation of how they work. 

When it executes a LOAD 
statement under program control, 
BASIC performs the load and then 
reruns the program from the begin- 
ning. However, BASIC remembers 
the values of variables that were 
previously used in the program. 
Thus, the first time you run Pro- 
gram 3, the variable A is set to 1, 
and the computer loads the ma- | 








chine language file HRPRINT. 
After the load is complete, the com- 
puter runs the program a second 
| time, beginning again with the first 

line of the program. But now A is 
equal to 1, so the IF test in line 110 
fails, and the computer proceeds to 
line 120. The variable A is set to 2, 


the computer loads the file CHAR- | 


SET, and the program is run from 
| the beginning for a third time. This 
time both IF tests fail, and the com- 
puter goes on to execute the re- 
mainder of the program. 


Locating The Hi-Res Screen 
The next step is to decide where to 
put the hi-res screen. High-resolu- 
tion screens require two separate 
blocks of memory. The largest 
block, called the bitmap, is 8000 
bytes in size; it contains infor- 
mation about which pixels (screen 
| dots) are turned on and which are 
| off. The second block is 1000 bytes 
| in size; it contains color information 
| for each of the 8 X 8-pixel blocks 

in the bitmap. The computer com- 
bines pixel information from the 
first block and color information 
from the second block to produce 
the final picture which appears on 
the hi-res screen. 

The 64’s video chip can refer to 
addresses only within a 16K 
(16,384-byte) memory zone. As a 
result, you must always locate the 
8000-byte bitmap and its 1000-byte 
color-memory block within the 
| same 16K area. The Commodore 


64's memory can be divided into 


four such blocks, which are known 
as video banks: | 
Bank 0: 0-16383 ($0000-$3FFF) 
Bank 1: 16384-32767 ($4000-$7FFF) 
Bank 2: 32768-49151 ($8000-$BFFF) 
Bank 3: 49152-65535 ($C000-$FFFF) 

Program 3 locates the bitmap 
| and color memory in video bank 0. 
The bitmap will start at location 
8192 and color memory will go at 
| 1024, the same area used as screen 
memory in text mode. Line 200 tells 
the computer the bitmap’s location, 
and line 220 puts the machine in hi- 
res bitmap mode. 

The following shows where 
Program 3 puts the bitmap, color 
memory, and character set: 


Location Usage 
1024-2023 color memory 
8192-16383 bitmap 
16384-16895 character set 


One disadvantage of using vid- 





eo bank 0 is that it locates the bit- | 


map in the middle of the RAM 
(Random Access Memory) area 
normally used to store BASIC pro- 
grams. BASIC memory ordinarily 
resides in locations 2049-40959, 


giving you 38,911 bytes to hold a | 


BASIC program and its variables. In 
this case, however, it is restricted to 
locations 2049-8191, leaving only 
6141 bytes of BASIC program 
space. What's more, the program 
takes no steps to protect the bitmap; 
if you expand the program, it will 


) eventually encroach on the bitmap 





If you think it's difficult to print charac- 
ters on the Commodore 64's hi-res 
screen, look again. “Hi-Res PRINT” is a 
convenient machine language utility 
which prints letters and numbers at any 
location on a hi-res screen. No machine 
language knowledge is necessary to use 


‘this program. 


area, corrupting its contents. For 
longer BASIC programs, you may 
need to use a different video 
bank—a subject that is beyond the 
scope of this article. In Programming 
the Commodore 64, available from 
COMPUTE! Books, you can find 


detailed explanations of video bank — 
/ usage and methods for creating a_ 


protected memory zone. 


Setting Up 

Once you have loaded the machine 
language program and its character 
set, located the hi-res screen, and 
enabled hi-res mode, you're nearly 
ready to print characters on the 
screen. Before you can use the ML 
program, however, you must tell it 
what sort of printing to perform, as 
well as the location of the bitmap, 
color memory, and character set. 
Line 150 sets two important vari- 
ables—IN and PR—which are used 
in later SYS statements. The vari- 
able IN stands for initialize. This 
variable is used in a SYS call which 
passes the initializing information 
to the ML program. The first initial- 





izing statement occurs in line 240: 
240 SYS IN, 2, 8192, 16384, 1024 


The first value in every SYS 
statement is the address of the ML 
code which you wish to execute. 
Since we set IN to 49152 (line 150), 
this SYS statement transfers control 
to the ML instructions beginning at 
location 49152. If the ML code 
loads at location 49152, you should 
always set IN to 49152. If you relo- 
cate the code to a different memory 
area (see below), IN should be set 
to the new starting address of the 
ML code. 

This particular ML program is 
designed to retrieve additional 
information which appears after 
the SYS address. The last three val- 
ues in line 150 should look familiar: 
Here the numbers 8192, 16384, and 
1024 indicate the location of the bit- 


map, character set, and color mem- | 


ory, respectively. When you 


execute this SYS statement, the ML | 


program stores this information for 
future reference. 

The second value in the SYS 
statement (2, in this case) is a special 


flag for the ML program. This value | 
must be either 1 or 2, depending on | 


what sort of printing you desire and 
what sort of hi-res screen is in use. 
For normal hi-res (not multicolor) 


screens and normal printing, this 


value should be 1. If you are using a 
multicolor hi-res screen, or if you 
wish to have reverse printing on a 
normal screen, set this value to 2. 
Of course, any of the values in 
the SYS statement can be replaced 
by numeric variables. For instance, 
BASE is set to 8192, so you could 
replace the 8192 in line 240 with 


| BASE. 


Once you've initialized the 
program for use, the next step is 
usually to clear the hi-res screen. If 


you don’t do this, it will contain | 


random shapes. Clearing the bit- 
map in BASIC is a time-consuming 
chore, since you must POKE zeros 
into 8000 consecutive memory lo- 
cations. Line 270 does the job in 
less than a second by using the ML 
program to print reverse spaces on 
the entire hi-res screen. 

Clearing the screen is a very 
simple matter. Line 260 creates a 
string, F$, which consists of 40 
spaces. In line 270, the program 
prints F$ 24 times, once for each 
character row on the screen, Here is 
the SYS statement that prints the 
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string: 
SYS PR, 15, 0, J, F$ 


Once again, the first parameter 
after SYS is an address within the 
ML program. The variable PR 
stands for PRINT; it is set to 49207 
in line 150. The second value sets 
| the printing color (15, in this case, 
for light gray). The third and fourth 
parameters set the character col- 
umn and character row, respective- 
ly, where the first character of the 
string is printed, In this example, 
we always start printing at column 


0, the leftmost column of the | 


screen. The fourth value is set by 
the variable J, which the FOR- 
NEXT loop in line 270 causes to cy- 
cle from 0 to 24. 

The last parameter tells the ML 
program what to print. On this oc- 
casion it is a string variable (F$). 


You can also use any string or nu- | 


meric expression that requires no 


/more than 80 characters to print. | 


Here are just a few examples: 


| SYS PR, 15, 0, 0, “HELLO” 
SYS PR, 15, 0, 0, LEFT$(A$(12),1) 
| SYS PR, 15, 0, 0, SIN(TI)*TIt2 


The rest of the SYS statements 





in Program 2 print messages on the 
screen, reinitializing the ML pro- 
gram as needed for various kinds of 
printing. By examining and experi- 
menting with these lines, you will 
see how to use the ML routine in 
several different ways, 


Relocating The ML Program 

Program 4 is not immediately nec- 
essary, but you may want to type it 
in for future use. Like many other 
machine language programs on the 
Commodore 64, Hi-Res PRINT 
normally occupies the protected 
memory area beginning at location 
49152. It may happen that you 


| wish to use this program with some 


other ML utility which also loads at 
that address. If so, you can run Pro- 
gram 4 to create a copy of the ML 
program which loads and runs at a 
different memory address. 

Before using Program 4, you 
must decide on a new location for 
the ML program, This can be any 
free RAM area at least 524 bytes in 
size which is not otherwise in use at 
the time. When you run Program 4, 


it loads the HRPRINT file at its nor- | 


mal memory location, and then 


| asks you to enter the new memory 


address and the filename to use for 
the new file. Of course, you should 
use some filename other than 
HRPRINT for the new file. (When 
loading the new file under program 
control, you would then substitute 
the new filename for HRPRINT.) 


| The program adjusts all of the ML 


program’s internal addresses for 
the new location and writes the | 
new file to disk. 

As a convenience, Program 4 
also prints the new addresses to use | 
for IN and PR in the SYS state- 
ments for this program (see above). 
Make a note of these addresses and | 
be sure to set IN and PR accordingly | 
when using the relocated version. 

In addition to the memory oc- | 
cupied by the ML code itself, this | 
program stores information in the 
following memory locations: 


679-767 ($02A7-$02FF) 
820-827 ($0334-$033B) 
1020-1023 ($03FC-$03FF) 


You should take care not to 
POKE into these locations or other- 
wise disturb their contents when 
using this program. 

See program listings on page 125. @ 
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Only checks and money orders will be accepted 

(no credit cards). Make checks ($6.95 
plus $2) payable to 

COMPUTE!'s Gazette. 





- Offer' 


Spend a little money, 
save a lot of time! 


Instead of investing tedious hours typing in programs, 
take advantage of our special disk offer! 

All 33 programs in this issue are available on 

disk for a special low price of $6.95, 
plus $2 postage and handling. 









Send to: 
COMPUTE!'s Gazette 
P.O. Box 684 
Holmes, PA 19043 








Text Framer 


Paul Sawyer 


| Frame text or character graphics with this utility that lets you 
easily create any size and color of frame and put it anywhere 


on the screen. 


“Text Framer’ is a small machine 
language (ML) program that can 
| greatly improve the appearance of 
| your BASIC programs. It lets you 
| draw frames on the screen at ML 
speed—frames of any size, any 
color, and made up of any charac- 
ters that you choose. You can make 
your own pop-up windows, divide 
the screen into sections, or frame 
the entire screen. 

Versions are included for the 
Commodore 128 and 64, (The 128 
version can draw frames only on 
the 40-column screen, not on the 
80-column display.) The program is 
a BASIC loader. Since it contains a 
machine language program in the 
form of DATA statements, use 
“The Automatic Proofreader” pro- 
gram located elsewhere in this issue 
to insure accurate entry. Type in the 
version for your computer and be 
sure to save a copy to tape or disk. 

When you load the program 
and type RUN, the program will be 
POKEd into memory, but nothing 


else will happen. To use the pro- | 


gram to make a frame, you must 
use a SYS command to call the ML 
routine. Before calling the routine, 
you'll probably want to set parame- 
ters appropriately. The accompany- 
ing table shows the key addresses 





for each machine. 

The default values in the table 
are the numbers that are set when 
the program is first run. If you doa 
SYS 49152 on the 64 or a SYS 3072 
on the 128, you'll get a frame with 
an upper-left corner at 0,0 and a 
lower-left corner at 11,11. (The 
length parameters do not include 
the edges of the frame, so a frame 
that surrounds a 10 X 10 square is 
really 12 X 12.) The color of the 
frame will be white (1), and the 
frame will be made of the default 
parameters (straight lines with 
rounded corners). 

The program uses line num- 
bers 10-350, so begin your own 
program at line 360 when adding 
frames to your own displays. 

Let’s change the appearance of 


Default Purpose 






SYS address 


the frame by making the horizontal | 
character an equal sign. We'll make 
the change for the Commodore 64, | 
If you're working with the 128, use 


| the table to find the correct location | 


to POKE. Now, add this line to the 
program: 
360 POKE 49160,61: SYS 49152: REM 61 
IS SCREEN CODE FOR = 
Now run the program. 

You can change any parameter 
simply by POKEing the desired val- 
ue into the proper location. The | 
character numbers (49160-49165) 
are screen codes, not ASCII codes, | 
so check your programmer's guide 
or COMPUTE!'s Mapping the 64 for | 
the appropriate values, | 

The program does error check- 
ing, so you don’t have to worry | 
about crashing your computer 
when you use it. If the border won't | 
fit on the screen, the computer will 
give an illegal quantity error. 


See program listings on page 97. 


top left X coordinate 
top left Y coordinate 
horizontal length 


vertical length 


color (0 on Plus/4, 16) 
screen code for horizontal frame character 


screen code for vertical frame character 
screen code for top left corner character 





screen code for top right corner character 
screen code for bottom left corner character 
screen code for bottom right corner character 
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Snapshot 


Clayton R. Newman 


| This clever utility can store up to 56 different screens in mem- 
ory and instantly retrieve any one for display. For the Commo- 


dore 64 and 128 (in 64 mode). 


Here’s a program that can be a real 
boon to programmers. “Snapshot” 


is a machine language utility that | 


stores whatever you have on the 
text screen, including colors, into 


the unused RAM which underlies | 
BASIC, It can store and retrieve up — 
to 56 screens. And you can save the | 


screens to tape or disk. It crunches 
the information for the screen, stor- 


ing up to 255 empty spaces or re- 


peated characters in only three bytes. 


Since Snapshot is written en- | 


tirely in machine language, it works 
fast. It can print a screen more than 
twice as fast as the equivalent 
BASIC PRINT statements, and far 
faster than POKEing data to screen 
memory. 


Two Modes 
“MLX,” the machine language en- 
| try program (found elsewhere in 
this issue), is required to type in 
snapshot. After loading and run- 
ning MLX, answer the prompts for 
the starting and ending addresses 
with the following values: 
C124 
C983 

After typing it in, save a copy. 

Snapshot can be used in either 
program or immediate mode. The 
commands are slightly different in 
each mode, (See the accompanying 
table for a list of commands.) Im- 
mediate mode uses the CONTROL 
key to input commands, In program 
mode, several SYS commands are 
required. 

To use it in immediate mode, 
load Snapshot by typing LOAD 
‘“filename’’,8,1 (disk) or LOAD 
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| Starting address: 
Ending address: 





““filename’’,1,1 (tape), then NEW 
and SYS 49444, Then, create or dis- 
play the screen you want copied. 
When the screen is ready, press 
CONTROL-C, Snapshot copies the 
screen to memory and asks you for 
a screen name, All Snapshot screen 
names must be two characters long. 
Any two characters, except aster- 
isks, may be used. If you choose a 
name that’s already been used, the 
old screen will be replaced by the 
new one. Use the INST/DEL key to 
make corrections when entering the 
name, If you decide not to save the 
screen at all, just press RETURN 
with no name and it will cancel the 
command, This escape works with 
all commands. 

To recall a screen, press CON- 
TROL-P and enter the two-character 
screen name, CONTROL-I displays 
an index or directory of your screen 
names. To delete a screen, press 
CONTROL-D and enter the name. 
To delete all of your screens, enter an 
asterisk (*) as your screen name. (In- 
dividual screen names should not 
contain an asterisk.) 

CONTROL-S and CONTROL- 
L are used to save and load the en- 





Command Immediate mode 
Copy CONTROL-C 
Print CONTROL-P 
Delete CONTROL-D 
Copy fraction CONTROL-F 
Index CONTROL-! 
Load CONTROL-L 
Save CONTROL-S 





Snapshot Commands 


Disable changing special color registers: POKE 50620,1 Reenable: POKE 50620,0 


tire group of screens on tape or 
disk. You're asked for a filename— 
for the entire group of screens— | 
and whether you’re using tape or | 
disk. (Tape users: you must enter a 
filename, since pressing RETURN 

with no input aborts the command.) | 

If you wish, you can copy only 
part of the screen. To do this, posi- 
tion the cursor at the start of the 
section you want to save and press 
CONTROL-F, The cursor changes 
color. Now move the cursor to the 
position after the last character you 
want saved and press RETURN. 
When these fractional copies are 
printed, they’re returned to the 
screen in the same location from 
which they were saved. 

If you’re working with graph- 
ics, you may often want to change 
the screen location or redefine the 
character set. Snapshot will work in 
either case, but remember that 
screens are printed to the same 
screen location from which they 
were originally copied. You could 
set up several screens ahead of time 
and scroll through them by chang- 
ing screen locations, But remember 
that all screen locations use the 


| same color memory, so if the screen 
| being printed has different colored 


characters than the screen currently 


displayed, the colors on the current 


screen will change too. 





Program mode 


SYS 51000,C,screen name 
SYS 51000,P,screen name 

SYS 51000,D,screen name 

not available 

SYS 51000,1 

SYS 51000,L,filename,D (or T) 
SYS 51000,5,filename,D (or T) 










The program mode commands 


| are very similar to immediate 


mode. The format is SYS 51000, 
command, name. For example, to 
print a screen named AB, use SYS 


use a string variable for the screen 
name, as in SYS 51000,C,A$. Array 
variables cannot be used, so if you 
want an array of screen names you 
must assign the array variable to a 
regular string variable: A$ =B$(20). 


| For loading or saving, add T (tape) 


| or D (disk): SYS 51000,S,filename, 


D. Do not use quotes for the file- 


| name. Also, you don’t need to SYS 


49444 (the command that activates 
Snapshot) in program mode. 


Making It Useful 

Snapshot has numerous applica- 
tions. One is displaying back- 
grounds for arcade games or text 


adventures. By using a redefined | 


character set, very complex screens 
can be drawn, rivaling high-resolu- 
tion screens, Many commercial 
games use screens drawn this way. 
One advantage of Snapshot is that 
it uses a maximum of 1509 bytes to 


| store a screen while a hi-res screen 


THE ULTIMATE 
64/128 
Resource 


COMPUTE!’s Commodore : | 
Buyer's Guide <= 





The encyclopedia of 
Commodore software— 
hundreds of products. 
Entertainment! Education! 
Business! Home Applications! 
Programmers’ Tools! 


Plus—printers and peripherals 
from modems to joysticks. 





uses 9000 bytes. Another use for 
Snapshot is for menus, instructions, 
and title screens. 

Snapshot is transparent to 


| most BASIC programs. This means 
| 51000,P,AB (P is for Print). You can 


you can use it in immediate mode 
to copy screens of programs while 
they're running. 

Snapshot saves the screens in 
RAM underneath the BASIC ROM 
at 40960-49151, providing 8192 
bytes of storage, enough to store six 
screens using the maximum size of 
1509 bytes per screen. The mini- 
mum size for a whole screen is 27 
bytes. There is enough room for 
327 screens this size, but Snapshot 
can only handle up to 56 screens at 
a time. 

The reason that different 
screens require different amounts 
of memory is that Snapshot com- 
presses the screen as it is saved. 
Any screen character repeated 
three times or more is represented 
as the character code along with a 
count of how many repeats. Color 
memory works the same way; how- 
ever, since 16 colors can be repre- 
sented in half a byte, two color 
locations are crunched into each 





All completely described, with 
price and manufacturer 
listings. Why look anywhere 
else? It’s all right here in 
COMPUTE!’s Commodore 
Buyer's Guide. 


On sale late December. 


byte to save space. This means that 
a screen which is mostly empty 


space, repeated characters, or the | 


same color, uses much less space 
than a screen with a complex image. 

If you run out of memory, 
Snapshot will display an error mes- 
sage. You can extend your Snap- 


shot memory by lowering the top- | 


of-BASIC pointer in locations 55 
and 56. Type POKE 56,PEEK 
(56)—4*X:CLR where X is the num- 
ber of kilobytes of added memory. 

When Snapshot prints a 
screen, it also changes the back- 
ground and border colors to those 
that were saved, If you use extend- 
ed background color mode, it will 
print the extra background colors. It 


also saves the extra colors for multi- | 


color characters. Sometimes, how- 
ever, you might not want these 
changes. To disable this feature, 
POKE 50620,1. To reenable it 
POKE 50620,0. 


Program 2 demonstrates a little | 


of what Snapshot can do, The pro- 


gram sets up the screen, and then | 


Snapshot quickly displays several 
screens, simulating animation, 
See program listings on page 76. @ 
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DOS Window 


Bob Kodadek 


If you own a Commodore 64 and 1541 disk drive, you won't 

want to miss this timesaving utility. It displays a window with 

11 disk commands—any of which is Just a keypress away— 
without affecting your current screen or BASIC program. 


Have you ever wished for a better 
and easier way to perform disk op- 
erations? I’m not talking about the 
“DOS Wedge” that you probably 
already have. | mean something 
even better than that. 

Imagine a menu screen that 


would provide a single keystroke | 


command to perform a particular 


disk operation, The program could | 


prompt at the appropriate time for 
user input such as new filename, 
old filename, disk ID, and so on. It 
would no longer be necessary to re- 
member or enter lengthy command 
strings. The directory could be read 
| without the nuisance of screen 
scrolling. The error channel would 
be displayed automatically after 
every operation. And, by using a 
windowing technique, we could do 


all this and more without affecting | 


our present screen. While we're at 
it, let’s imagine that this command 
menu could be accessed, viewed, 
and used at any time, even while 
another program is running. A pretty 
| tall order, you say? 

The accompanying program, 
“DOS Window,” is just what we de- 
scribed—a menu-driven, interrupt- 
based, DOS support window. It is 
RAM-resident and transparent to 
your other programs. It can be 
called at the touch of a key to per- 
form disk operations instantly, 
even while other programs are run- 
ning. Included in the display is a 
| digital clock for accurate timekeep- 
ing. The following commands are 
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available from the menu: 


Directory 
Initialize 
Validate 
Rename 
Format 
Save 
Copy 
Scratch 
Load,§ 
Load,8,1 
Reset 


Using DOS Window 

DOS Window consists of two pro- 
grams. Program 1, “DOS Window 
Object File,”’ is written in machine 
language. ‘‘MLX,” found elsewhere 
in this issue, is required to type it in. 
After loading MLX, respond to the 
prompts with the following: 

CA60 

CFFF 


Be sure to save a copy of Program 1 
to disk after you've typed in all the 
data. (Note: Program 2 attempts to 


Starting address: 
Ending address: 


load this file as ‘‘DOS-WINDOW | 


.OB]”. If you save Program 1 under 
any other name, be sure to change the 
filename which ts loaded in line 10 of 
Program 2.) Program 2, ‘‘DOS Win- 
dow Boot,” is written in BASIC. Be 
sure to save a copy before you run 
the program—it erases itself when 
it’s performed all its duties—and be 
sure to save it on the same disk on 
which Program 1 was saved. 

To use DOS Window, just load 
and run DOS Window Boot, Pro- 
gram 2. (It automatically loads the 
machine language in Program 1.) 





When the program is finished load- 
ing, you may elect to set the time on © 
the digital clock. If the current time | 
is not set, the clock will function as | 
a timer. To open the window, press 
CTRL-D. Then simply select from | 
the menu. When you're through, | 
press RETURN to close the win- 
dow. To disable the utility, press 
RUN/STOP-RESTORE. To reacti- | 
vate it, type SYS 51808. 


How It Works | 
The IRQ vector is altered to point to 

a routine which scans the keyboard 
for the current key being pressed. If 


| the CTRL and D keys are pressed 


simultaneously, a flag is set to di- 
vert subsequent interrupts. Then 
screen memory, color memory, and | 
zero page are quickly copied to the 
normally unused RAM under the 
BASIC ROM. Next, the menu 
screen is displayed and the pro- 
gram enters an input loop. If the in- 
put is valid, it is matched toa 
corresponding command routine 
and executed. Following the com- 
pletion of each operation, the error 
channel is read and displayed at a 
status line. When the menu screen 
is exited, all stored memory is re- 
turned to its original location, the 
flag is cleared, and control is re- 
turned to the current program run- 
ning in memory or BASIC, which- 
ever applies. 

To avoid conflicts between 
programs, some restrictions must 


| be observed. Your program may 


not use the RAM located under the 
BASIC ROM or locations 51808- 
53247. Also, the DOS Window pro- 
gram assumes that you're in the 
standard character mode with the | 
screen at its default location of 1024. | 
See program listings on page 96. @| 








DOS Calc 


Steve Kelly 


This convenient, menu-driven utility for the Commodore 64 in- 
cludes all the disk functions of the familiar “DOS Wedge” pro- 
gram, plus a powerful scientific calculator. A disk drive ts 
required to use the program’s DOS functions. 


“DOS Calc” is two programs in 
one. Not only is it a complete re- 
| placement for the “DOS Wedge” 
| program supplied on the 1541 or 
1571 Test/Demo disk, but it has a 


built-in scientific calculator. The | 
program is entirely menu-driven | 


and employs easy-to-use, pop- 
down windows. 

DOS Cale is written in ma- 
chine language, so you must enter it 
with ‘“MLX,” the machine language 
entry program found elsewhere in 
this issue, Here are the addresses 
you need to type and save the pro- 
gram with MLX: 

0801 

16E8 

| After you have saved a copy of 
DOS Calc, it can be loaded and run 

just like any BASIC program. When 

you run it, DOS Calc relocates itself 

to the safe memory area beginning 

at address 49152, a process that 

takes only an instant. 

Once the READY prompt re- 
turns, DOS Calc is ready to use. 
Like the ‘DOS Wedge,” DOS Calc 
works only in immediate mode 
(when you are not running a pro- 
gram). To enter DOS Calc, type @ 
| and press RETURN, DOS Calc dis- 
plays the main menu window with 
the following selections: 

Exit 

Directory 
Load 

Load relocated 
Save 

Resave 


Bsave 
Re-Bsave 


Starting address: 
Ending address: 


ZO™MMON > 





Scraten 

Rename 

Copy 

Validate 

Initialize 

Read error channel 
New a disk 
Calculator 


MOZEZM ATH 


To select a function from the 
main menu, simply press the letter 
shown next to the function you 
want. For instance, pressing A exits 
DOS Calc and returns you to 
BASIC. When you choose any other 
function, DOS Cale opens a new 


screen window in which the inter-. 


action for that function takes place. 


Directory 
The directory function (B) is per- 
haps the most frequently used DOS 
function. When you press B, DOS 
Calc opens a window and prompts 
you to enter a wildcard specifica- 
tion. As a convenience, it prints the 
asterisk (*) wildcard in the window. 
If you wish to view all the files on 
the disk, simply press RETURN. To 
view only selected files, change the 
wildcard accordingly. 

For example, suppose that you 


want to see all the files beginning © 


with GAME. Type GAME* and 
press RETURN, After you enter the 
wildcard, DOS Cale opens a third 
window which contains all the re- 
quested directory information. To 
exit this window and return to the 
main menu, press A. If the disk con- 


| tains more files than will fit in the 


window, you can press B to view 
the next page of the directory. Press 








“DOS Calc” ts entirely menu-driven 
and employs easy-to-use, pop-down 
windows. 


C to enter a new wildcard and be- 
gin a new directory search. 


File Functions 
The next eight DOS functions all 


concern existing files. They are 


Load, Load Relocated, Resave, 
Bsave, Re-Bsave, Scratch, Rename, 
and Copy. After you select any of 
these functions from the main 
menu, DOS Calc asks you to enter 
the name of the file you wish to 
manipulate. If you enter a null file- 
name (no name), DOS Calc auto- | 
matically displays the directory for | 
the current disk. This directory dif- 
fers from the normal directory dis- 


| play, however, in that each filename 
_ is prefaced by a letter. To select a file 


for the current function, simply 
press the letter key that appears in 
front of the filename. If you change 
your mind and decide not to com- 
plete the operation, press A to exit. 

For instance, let’s try the Re- 
save command, which deletes an ex- 
isting program from disk and 
replaces it with the BASIC program > 
currently in memory. When you 
choose Resave from the main menu, 
DOS Calc opens a window asking 
for a filename. If you press RETURN 
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without entering a name, DOS Calc 
opens a secondary directory win- 
dow from which you can select the 
file by pressing a single key. Once 
this is done, the program completes 
the resave. You should avoid using 
any wildcards in the directory func- 
tion when it appears as part of a Re- 
save or Re-Bsave command. 

The Copy and Rename com- 
mands require two filenames. The 
first name you enter is used as the 
name of the new file for the Copy 
command or the new name of the 
existing file for the Rename com- 
mand, This name must be typed in 
(it cannot be derived from the direc- 
| tory). The second name indicates 
| the original file; this name can be 
taken from the directory. 

DOS Calc provides two func- 
tions that are not included in the 
| “DOS Wedge” program. The B in 
| Bsave and Re-Bsave stands for bi- 
nary, indicating a binary file con- 
taining machine language, graphics 
data, or something other than a 
BASIC program. Since these func- 


tions save a designated area of | 


memory, you must supply two ad- 
dresses: the beginning and ending 
addresses of the area to be saved. 

| The Validate, Initialize, and 
| Read Error Channel commands re- 
quire little explanation, Since no 
information is required for these 
commands, DOS Calc simply per- 
forms them without any introduc- 
tory prompts. The New command, 
which formats a disk, requires 
either one or two items of infor- 
mation. The first item—the disk 


name—is mandatory. To reformat | 


an already formatted disk, you can 


supply a new disk name without | 


| anything else. To format a disk that 
has never been used, you must sup- 
ply a two-character disk ID after the 
disk name, separating the two items 
with a comma, 

For additional information on 
DOS operations, refer to the user's 
manual for your disk drive. 


Scientific Calculator 

DOS Calc also includes a built-in 
calculator which is very useful for 
math, engineering, and various sci- 
entific applications. This calculator 
is different from the familiar pocket 
calculators used by most people. It 
uses a notation called Reverse Polish 
Notation (RPN), which allows you 
to solve complex formulas without 
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parentheses, 
When you select the calculator 


| from the main menu, two second- 
| ary windows appear on the screen. 
On the right is the function win- 


dow, which lists all the calculator 
functions preceded, as usual, by the 
letter key which invokes them, To 
the left is the result window, which 
is subdivided into three sections. 
The result area contains either an- 
swers from calculations or key- 


board input from you. In the middle 
| is the stack display, which holds in- 


termediate results. The bottom area 
is a message area where the calcula- 
tor displays error messages such as 
Divide by Zero. 


Notation 

Before looking at the calculator 
functions, let's establish some rules 
for entering numbers. You can en- 
ter any number in either standard 
notation (2534.56 is an example) or 


in scientific notation (123E34 is an | 


example). Negative numbers are 
entered somewhat differently than 
you might expect, since the minus 
(—) sign is already used to signify 
subtraction (see below). Use the 
shifted minus sign (hold down 
SHIFT and press the minus key) as 
a substitute, The second trick has to 
do with the E symbol used in scien- 
tific notation. This calculator also 
uses the letter E for another func- 
tion (it causes the stack to wrap 
down; see below). As a substitute, 


use the T symbol (the up-arrow key | 


directly to the right of the asterisk). 
Whenever you enter 7 as part of a 
number, DOS Calc puts an E in the 
number you are entering. 


Examples 

To start with an easy exercise, let’s 
look at how to perform 2 + 5, In 
RPN there is no need for an equal 
sign (=), In this case, you enter 


both numbers followed by the plus | 


sign (+), which is the operator you 


| wish to use. Press the number 2. 


DOS Calc prints a 2 in the result 
window. Now press RETURN. The 
number 2 shifts to the right and also 
appears as the top entry in the stack 
area. Press the number 5. The top 
line of the result window now 
shows that number. Press the plus 
key, The 2 on the stack is replaced 
by a 0 and the result line displays a 
7. Simple arithmetic operations use 
the same general procedure. To 





subtract 2 from 5, you would enter 


| the numbers 5 and 2, followed by 


the minus key. 
More complex equations dem- 


onstrate the power of an RPN cal- 


culator. Let’s solve the equation 
2048 /(8*4). Begin by entering 2048 
and pressing RETURN. Now type 
8, followed by RETURN, and then a 
4, At this point the stack contains 
all the numbers for the equation, in 
correct order. Now press the aster- 
isk (*) key to perform multiplica- 
tion. The result line should display 
32. Press the slash (/) to perform 
division. The calculator displays | 
the final result, which is 64. 

Each time you pressed RE- 
TURN in this example, the calcula- 
tor pushed the number from the 
result line onto the stack. All other 
numbers were pushed down one 
location, and the fourth entry on 
the stack was lost. 


There are seven other func- 
tions which, like RETURN, have 
some effect on the calculator’s 
stack. The first is Clear Entry: This 
function clears the result line and 
leaves all other entries untouched. 
The Clear Stack function clears the 
result line and the entire stack. The 
next four functions cause the entire | 
stack, including the result line, to 
wrap or roll in either direction. A 
wrap allows either the top or bottom 
entry to move from top to bottom, 
or vice versa. A roll causes the top 
or bottom entry to be lost. The sev- 
enth stack function, Exchange, 
swaps the result line with the top 
stack entry. This operation is useful 
if numbers are entered in the wrong 
order and need to be corrected. 

All the remaining functions are 
standard math operations which op- 
erate on the result line. Except for | 
Power and Pi, these functions affect 
only the result line, The Power func- 
tion raises the number on the top of 
the stack to the power specified in 
the result line; the answer is left on 


_ the result line and the stack shifts up 


one location. The Pi function enters 
the value of pi (3.1415926) in the re- 
sult line just as if you had typed it 
from the keyboard. 

Using an RPN calculator may 
seem strange at first, but once you | 
become familiar with its powerful | 
features, you may never want to go 
back to using a simple pocket 
calculator. 

See program listings on page 126, @ 








Gradebook 


Stephen Levy and Kevin Mykytyn 


A gradebook is an important recordkeeper for a teacher. An 
|electronic gradebook is an efficient, convenient, and even more 
valuable organizational tool. This all machine language pro- 

| gram—which includes some of the features of databases and 
spreadsheets—handles up to 70 students with 100 grades each. 
It also alphabetizes names, averages weighted grades, and 
much more. For the Commodore 64. 


Schools continue to buy computers 
for students. But teachers need the 
time-saving convenience offered by 
computers as much as anyone. 
“Gradebook,” designed especially 
for teachers, is a utility that effi- 
ciently handles classroom record- 
keeping, replaces the periodic 
drudgery of averaging grades, and 
is easy to use, 

Gradebook keeps a record of 
up to 100 grades for as many as 70 
students in one file. In addition, the 
program will average grades, dis- 
_play them to the screen, sort (by 
/name or grade), and print out the 
results. 


| A Great Big Work Sheet 
When Gradebook is first run, you'll 
see a work sheet filled with mean- 
ingless characters. Press 
| SHIFT-CLR/HOME to clear the 
work sheet. A gray screen with six 
columns filled with asterisks then 
appears. What you're seeing is a 
window on a much larger work 
sheet. The top row contains the as- 
signment number, one per column. 
If you could view the entire work 
sheet, you'd see that it contains 101 
columns, the first one for student 
names and the next 100 for individ- 
ual assignments. 

Press the cursor-left/right key 
| so that the cursor is anywhere in 
the column for assignment 1. Now 
_ press the cursor-up/down key a 
few times. Notice how easy it is to 
move around the work sheet. If you 
move the cursor to the far right col- 
umn and press cursor-left/right, all 


columns scroll to the left to make 
room for the next column. Pressing 
SHIFT-cursor-left/right moves the 
cursor left, and SHIFT-cursor-up/ 
down moves it up. 

The left-arrow key (at the up- 
per left on your keyboard) func- 
tions like a ‘‘toggle,’” and enables 
you to move at fast or normal 
speeds around the work sheet. To 
move quickly, press the left-arrow 
key once. Now each time you press 
one of the cursor-movement keys, 
you'll move five rows or columns. 
To return to single-step movement, 
press the left-arrow key again. 

Anytime you wish to move to 
the top left of the work sheet, press 
CLR/HOME. 


Entering Names And Grades 
Move the cursor to the upper-left 
corner of the work sheet by press- 
ing CLR/HOME. The cursor now 
appears as a long white bar in the 
column for names, Each name must 
start on the left margin, so be sure 
not to type a space as the first char- 
acter, There’s no need to type 
names in alphabetical order be- 
cause the program will do that for 
you (see below). Be sure to enter 
last names first if you wish to have 
students alphabetized by last 
names. After entering a student 
name, press RETURN or cursor-up- 
/down to enter another. Do not 
leave blank lines between names— 
each name must immediately fol- 
low the one above. 

Before you can enter grades for 
an assignment, you must first enter 





the perfect mark (a whole number | 


between (0 and 200) and percentage 
(weight) of grade for the assign- 
ment. To begin entering individual 
grades, move to the cell (column 
and row coordinate) for the student 
and assignment number you want 
to enter. All grades must be whole 
numbers between 0 and the perfect 
mark you've determined for that 


assignment. To change a student | 
name or grade, go to the appropri- | 
ate location and type it in. It will | 


automatically replace the old data. 
If you make an error while entering, 
use the INST/DEL key as you nor- 
mally would to erase the previous 
character. 


Calculating Grades 


| At the top of each column is dis- 


played the assignment number and 


| a place to enter the perfect mark 


and the percentage (weight) of the 
grade, 

The program uses the perfect 
mark value for each assignment to 
calculate a percentage grade for 
each mark. This feature offers an 
added convenience: You don’t have 
to figure all grades on a 100 percent 
base. You can enter a mark based, 
say, on the actual number of correct 
answers. 

Percentage of grade allows you 
to give different weights to various 


tests, finals, midterms, and so on. | 


For example, suppose you give sev- 
en tests during a quarter. Two of the 
seven are unit tests which count 


-more heavily than the other five. 


All you need to do is assign a higher 
percentage for the unit tests. Note, 
however, that the total of all the 
percentages of grades must equal 
100. In our example, we might have 


| the two unit tests each count as 25 


percent of the total and the other 
five tests each count as 10 percent 
(25, 25, 10, 10, 10, 10, 10, for a 100 
percent total). 

Once the perfect marks and 
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percentages of grades are entered, 
press the £ key to calculate grades. 
You'll get two types of calculations. 
Ave is the unweighted average (all 
marks are added together and di- 
vided by all the perfect marks 
added together.) Fin is the weighted 
average, which is calculated with 
this formula: 


mark#1 * weight mark#2 * weight 


perfect mark perfect mark 


mark#3 * weight 
anit 
so on 
perfect mark 


If the total percentage of 
grades doesn’t add up to 100, you 
won't get a figure in the Fin col- 
umn, Also, any student missing a 
grade will not have an average in 
the Fin column. 

Press any key to return to the 
work sheet. 


Deleting Grades And Names 
Let's say you decide that all the 
grades for a single assignment 
should be eliminated. First, move 
| the cursor anywhere on the column 
of grades to be deleted and press 
CTRL-D, When prompted, press C 
| for column. Asterisks will fill the 
column. Now, you can either ig- 
nore them or reuse the column, 
Likewise, if a student leaves 
your class and his or her grades are 
no longer needed, move the cursor 
to the row containing the student's 
-name and press CTRL-D. But this 
time, when prompted, press R for 


and all rows below are moved up. 

Deleting grades can serve an- 
other very useful purpose. At the 
end of each quarter or grading peri- 
od, you can load in a work sheet 
from disk or tape (see below for 
loading instructions). Delete all 
grades, column by column, as dis- 
cussed above. Then either enter 
new grades for the new quarter or 
save out just the names for later 
use. By saving the names using a 
different filename on disk or on an- 
other tape, you'll preserve the 
grades from the past quarter for fu- 
ture reference. 

To delete a single grade, re- 
place it with an asterisk. To delete 
all entries, both names and grades, 
press SHIFT-CLR/HOME. Use all 
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| SHIFT-cursorup/down 
CLR/HOME 


| Gradebook Command Summary 


CTRL-A 
CTRL-D 
CTRL-L 


Sort row or column 
Delete row or column 
Load names and grades 


from tape or disk 


CTRL-P 
CTRL-S 


Print row or column 
Save names and grades to 


tape or disk 


SHIFT-CLR/HOME 


cursor-left/right 
SHIFT-cursorleft/right 
Cursorup/down 


| delete commands carefully, as data 


| recovery is impossible. 


Saving And Loading 


Once you've entered some names 


| and grades and are ready to save 


the file, press CTRL-S. You'll be 
prompted for a filename (12 charac- 
ters maximum) and asked to press T 
or D for tape or disk. If you use a 
filename that’s already on your 
disk, it will be replaced by this new 
file. 

Remember to save anytime you 
enter new names or grades, And it's 
best to use a different filename each 
time you save, 


Loading is also easy: Just press 
CTRL-L and answer the prompts. 


Printing And Sorting 

Gradebook will print out any col- 
umn to any Commodore printer (or 
any Commodore-emulating print- 
er). To print a column, move the 
cursor to the desired column and 


row, Instantly, the row disappears | PTeSS CTRL-P. Be sure your printer is | 


| turned on before pressing CTRL-P. 


Otherwise, Gradebook will print to 
the screen, scrambling the format 
you've set up. 

If you ask for a column of 


grades, the name of each student 


will appear with the student's grade 
for that one assignment. If the cur- 


sor is in the column of student 


| names and you ask for a printout of 


the column, you'll get a list of stu- 
dent names. 

To get a printout of all student 
averages, press £ to go to calcula- 


tions. Once the averages are dis- 


played, press CTRL-P. 
CTRL-A will sort any column. 


Move the cursor to the column with . 


the student names, press CTRL-A, 
and the names will be sorted in al- 


Delete all entries 


| ¢ Calculate averages 


Move cursor right 

Move cursor left 

Move cursor down 

Move cursor up 

Move cursor to upper left 
Toggle cursor speed control 


phabetical order. And the grades 
will move to the proper row. Place 
the cursor in a column of marks and 
press CTRL-A, and that list will be 
arranged in descending order. 
Again, all corresponding data will 
be rearranged, 

The sorting function gives Gra- 
debook flexibility. You could sort 
assignment 1 and then print out all 
the student grades for assignment 
1. This would give you a list of 
names and grades, sorted by grades 
from highest to lowest. You can 
save multiple files with the same 
data, but sorted and arranged in dif- 
ferent ways. 

Gradebook has only a few 
commands, but, as with any pro- 
gram, it takes a little getting used to. 
The first few times you use the pro- 
gram, refer to the table of com- 
mands. Once you've used it a bit, 
you'll find that entering and aver- 
aging grades will be quick and easy. 


Typing It In 

Gradebook is written entirely in 
machine language, so you must use | 
“MLX,” the machine language en- | 
try program to type it in. Run MLX | 


| and enter the following information 


when prompted: 
Starting address: C000 
Ending address: CC27 

Once Gradebook has been 
saved to disk or tape, load it with 
LOAD “‘filename’,8,1 for disk 
or 
LOAD “filename” for tape 
where filename is the name used to 
save Gradebook using MLX. Once 
the file is loaded, type NEW, press 
RETURN, and enter SYS49152 to 
activate the program. 
See program listing on page 74. @ 


Sprite Designer 


André Corbin 


This full-featured sprite editor from a Canadian reader lets you 
design Commodore 64 sprite shapes quickly and conveniently. 
The program works with either disk or tape. 


Nearly every Commodore 64 pro- 
grammer uses sprites at one time or 
another. They’re the movable 
graphics shapes that add so much 
to arcade games and other pro- 
| grams, If you have plenty of time, 
you can draw the sprites on graph 
paper, calculate the numbers that 


make up each sprite, type those | 


numbers into a program, and hope 
that you didn’t make any mistakes 
along the way. But “Sprite Design- 
er’’ offers a much faster and easier 
alternative, allowing you to design 


sprites directly on the screen, with | 


convenient keyboard controls. You 
can save a group of sprite shapes to 
disk or tape and reload them for fu- 
ture use, Or you can create a series 
of BASIC DATA statements con- 
taining the sprite data. The pro- 
gram supports both single-color 
and multicolor sprites and it allows 
you to work on a group of eight 
sprites at a time. 


Typing It In 

Sprite Designer is written in ma- 
chine language, so you must type it 
in with the “MLX” machine lan- 
guage entry program published 
elsewhere in this issue. Read the 
MLX instructions carefully before 
you begin. When you run MLX, 
you'll be asked for a starting ad- 
dress and an ending address for the 
| data you'll be entering. Here are the 
values to use for Sprite Designer: 


84D0 
9E47 


Starting address: 
Ending address: 


‘““PROGRAM",8,1 for disk or 
LOAD “PROGRAM”,1,1 for tape 
(replace PROGRAM with the name 
you used when saving the pro- 
gram). To start the program, type 





SYS 34000 and press RETURN. 
Sprite Designer uses the mem- 


-ory in locations 8192-16383 to 
| store sprite shape data. This work | 
area can hold 16 groups of 8 sprites, 


allowing you to have a total of 128 


| sprite shapes in memory at one time. 


Main Menu 

When you start Sprite Designer, it 
displays a main menu containing 
the following choices: 

INITIALIZE 

EDIT 

ANIMATE 

SAVE 

LOAD 

BASIC DATA 

MONOCHROME 

MULTICOLORED 

QUIT 


To choose a menu option, sim- 
ply press the number key next to 
that option. For instance, the Edit 
option lets you design a sprite. To 
choose that option, you press the 2 
key. Let’s look at the menu options 
in order, 


1. Initialize 

Sprite Designer always begins by 
asking you if you want to initialize, 
or clear out, the entire sprite work- 
space. Since this action erases all 


SSN ae wn 


sprite data in memory, the program | one command: The plus key (+) 


asks you to confirm before it contin- 
ues, If you press Y to answer yes, ev- 
ery dot in all of the sprite shapes is 
turned on. You can choose this op- 


| tion at any time from the main menu. 
| 2. Edit 


After you've saved a copy of | 
the program, load it with LOAD | 


Option 2 (Edit) moves you to the 
sprite-editing screen, which is di- 
vided into three areas. In the lower 
right corner are two numbers that 
show the sprite series you are 
working on, as well as the individ- 
ual sprite you are designing. Each 


SPRITES DESIONER 





“Sprite Designer” ts a comprehensive 
utility for designing sprite shapes for 
use in games and animation. This photo 
depicts the main editing screen. 


series contains eight sprites, and 
the series are numbered 0-15, cor- 
responding to their respective posi- 
tions in memory. Within a series, | 
each of the eight sprites is given a | 
number 0-7. 

In the upper-right portion of | 
the screen you will see the shapes of 
all eight sprites in the current series. | 
As you design a sprite, the changes 
immediately appear in this area. 

The left portion of the screen is 
the editing area, where you actually | 
design the sprite shape. This area is | 
24 X 21 spaces in size, with each 
screen space corresponding to a dot 
in the sprite shape. 


Editing Functions 
Once you have reached the editing 
screen, you need to remember only 


displays an entire screen of instruc- 
tions for editing. To return from the 
help screen to the editing screen, 
press any key. The asterisk (*) re- 
turns you from the editing screen to 
the main menu. 

When you enter the editing 
screen, the editing area contains the | 
shape of sprite 0 within the current 
series. The function keys f3-f6 
allow you to select any series and 
any individual sprite within a se- 
ries, Press f3 to go to the next series, 
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or f4 (SHIFT-f3) to go back to the 
| previous series. The f5 key ad- 
vances to the next sprite in the se- 
ries, while f6 moves to the previous 
sprite, If you have designed a series 
of shapes for animation, you can 


hold down f3 or f4 to move through © 


the entire series quickly. 

| A reverse-video cursor indi- 
cates your position in the editing 
| area. To move the cursor around, 
| press the cursor keys just as you 
would normally. The size of the cur- 
sor depends on whether you are 
working on a single color or multi- 
color sprite. For a single-color sprite, 
the cursor is a square one space in 
size; for a multicolor sprite, it is a 
rectangle two spaces in size, con- 
taining a number in the range 0-3. 

You can turn on every dot in 


CLR, For a single-color sprite, the 


space bar lets you turn individual | 


dots on and off inside the editing 
_ area. You can erase a dot by pressing 
the space bar and turn a dot on by 
pressing SHIFT—SPACE (hold down 
SHIFT and press the space bar). 

For a multicolor sprite, a dot 
can have any of four different col- 
ors, including the background color 
(see ““Multicolor,”’ below). Use the 
| numbers 0-3 or the letter keys Z, X, 
| C, and V to color a dot with the de- 
sired color. 

You also can change the posi- 
tion of the sprite shape within the 
editing frame, shifting everything 
one dot to the right, left, up, or 
down. This is done by holding 
down the Commodore key and 
pressing W, Q, R, or E, respectively. 

It is possible to flip a sprite 
shape horizontally or vertically, by 
pressing Commodore-!I or Commo- 
dore-K, respectively. 

The fl key allows you to copy a 
shape from one sprite to any other 
shape in memory. First, use func- 
tion keys £3-f6 to put the shape you 
want to copy into the editing area. 
Press f1 to copy the shape; then use 
f3-f6 to select the shape you want 
to copy to. Press fl a second time, 
and the shape is copied instantly. 

The f2 key inverts every dot in 
the current sprite shape. Use f7 and 
f8 to change the sprite’s color. 

3. Animate 

Option 3 (Animate) lets you cycle 
through all the sprite shapes in as- 
cending order, beginning with se- 
ries 0, sprite 0. When you choose 
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this option, Sprite Designer 


prompts you to enter a delay inter- | 


val which controls the speed of the 
animation. The smaller the delay 
interval, the faster the animation. 
Press SHIFT-SPACE to stop the 
animation and return to the main 
menu, You can also use keys f3-f6 
to cycle forward or backward 
through the sprite shapes, as ex- 
plained in the preceding section. 
4, Save 

Sprite Designer allows you to save 
an entire set of sprite shapes to disk 
or tape. Enter a filename when 
prompted; then press D or T to indi- 
cate disk or tape, respectively. To 
cancel the operation, press RE- 
TURN when prompted to choose 
disk or tape. If a disk error occurs, 


the current sprite shape by pressing | eprite Designer prints the appropri- 


ate error message at the bottom of 
the screen. 

5. Load 

This option allows you to reload a 
set of sprite shapes from disk or 
tape. Follow the onscreen prompts 
as explained in the preceding 
section. 

6. Add DATA Lines 


Option 6 (BASIC DATA) lets you 
save sprite shapes in the form of 


BASIC DATA statements. This is | 
done by adding DATA lines to an | 


existing BASIC program. Activate 
Sprite Designer and load your exist- 
ing sprite shapes or design new 
ones. Once the sprite shapes are in 
memory, exit Sprite Designer and 
type NEW. Then load the BASIC 
program to which you wish to add 
the sprites, Don’t worry that the 
program will disturb the sprite 


shapes: Sprite Designer automati- 


cally copied them into a safe place 
(the RAM under BASIC ROM) 
when you exited the program. 
When the BASIC program 
loads, do not run it. Instead, type 
SYS 34000 to reactivate Sprite De- 
signer. Do not initialize the sprite 
shapes at this stage, or load any 
shapes from disk or tape. Instead, 
choose option 6. The program 
prompts you to enter the series of 
sprites that you wish to save. When 
that is done, you also are given the 
opportunity to include REMarks 


along with the DATA lines. 


After you answer those ques- 
tions, the program prompts you to 


| enter a filename and indicate 


whether to use disk or tape, as in 





options 4 and 5. At this point, 
Sprite Designer adds the DATA | 
lines to the program in memory and 
saves the new program. If you wish 
to cancel the operation, press RE- 
TURN at the filename prompt with- 
out typing anything. 

After the save is complete, exit 
Sprite Designer and type NEW (to | 
reset BASIC’s internal pointers). In 
order to work properly, the BASIC | 


| program to which you add the 


DATA lines must not exceed 24 
disk blocks (6144 bytes) in length. 


7. Monochrome 

Each series of eight sprites can be 
either monochrome (single color) or 
multicolor. You cannot mix mono- 
chrome and multicolor sprites in 
the same series, When you choose 
option 7, a 16-color board appears 
on the screen. To choose a color, | 
press the letter key matching that | 
color. That color will be used for all 
eight sprites in the designated series. | 


8. Multicolor 


Option 8 allows you to choose col- 
ors for a series of multicolor sprites. 
When you choose this option, a 16- 


_ color board appears as described in 


the previous section. Since a multi- 
color sprite can have four colors, 
the program asks you to select four 
colors, numbered 0-3. When you're 
drawing in multicolor mode, the 


| cursor contains a number to indi- 


cate which color you are drawing 
in. To switch to a different color, 
press a number in the range 0-3. A 
small color board to the right of the 
drawing area shows you the current 
drawing colors. 

0. Quit 

When you exit Sprite Designer, the 
program copies all the sprite shapes 
in the workspace into the “hidden”’ 
RAM underlying the BASIC ROM 
chip. This is done to make it easy 
for you to alternate between using 
your own BASIC programs and 
Sprite Designer. You can load and 
use a BASIC program after using 
Sprite Designer, then reload and ac- 
tivate Sprite Designer again. If you 
choose not to initialize the work 
area, Sprite Designer copies the 
previously stored sprite shapes 
back into its workspace. This elimi- | 
nates the need to reload the sprites 
from disk or tape every time you 
switch between a BASIC program 
and Sprite Designer. 

See program listing on page 112. @ 








~Memo Diary 


Jim Butterfield, Associate Editor 


Keep track of important dates, holidays, and personal events 
with this simple, easy to use BASIC program. 


“Memo Diary” helps you record 
and recall birthdays, holidays, ap- 
pointments, or any other event 
worth remembering. The program 
maintains a data file with as many 


as 100 events whose dates can | 
range from tomorrow to one yearin | 


the future. You can record two dif- 


ferent types of dates: temporary, | 
one-time events such as appoint- | 
ments which have no importance | 


once they have passed; and perma- 
nent, recurring events such as birth- 
days and anniversaries. By 
routinely running Memo Diary 
each time you use your computer, 
you'll no longer have to worry 
| about forgetting to mail a birthday 
card to a relative or finding an anni- 
| versary gift for a spouse. 

The program always shows the 
correct day of the week when you 
enter a date, and you need to enter 
the year only once—the very first 
time you run the program. After 
that (for the next 99 years, anyway) 
Memo Diary keeps track of the year 
for you. Each time you run the pro- 
gram, it automatically shows all 
due and overdue events on the 
screen or printer, and erases one- 
time events from the calendar after 
they're displayed. 

You can enter temporary or re- 
curring new events and erase exist- 
ing events whenever you wish. You 
can also examine all events from 





the current date forward, or search 


| the entire calendar for events 


matching a given starting pattern. 
calendar either on disk or tape. 


Typing The Program 
Type in the program and be sure to 
save a copy and read the instruc- 
tions before running it. 

The first time you run Memo 
Diary is special, Do not start the pro- 
gram by entering RUN. You should 
type RUN 100 and press RETURN. 
If you don’t do this, the program will 
not work correctly. When you start 
the program at line 100, Memo Dia- 
ry lets you enter the correct year 
without looking for a previous file 
of events, Thereafter, start the pro- 
gram with RUN in the usual way. 

On the first run you'll probably 
want to enter fixed holidays such as 
New Year’s Day as well as birth- 
days and anniversaries. These are 
permanent events that you won't 
need to enter year after year. A 
holiday like Thanksgiving should 
be entered as a one-time event 
since it falls on a different date each 
year. 

When Memo Diary asks you to 
enter today’s date, you can type in 
the name of the month (such as 


OCTOBER) or its number (such as | 
10), In either case, be careful to en- | 


ter it correctly. Memo Diary lets you 





| enter any day of the month from 1 


to 31, so it won’t mind if you speci- 


fy the date as February 30. Mistakes 
| like these may confuse the calendar 


file. For instance, if you use the pro- 


| gram on July 4 and the next day 
| mistakenly give the date as June 5, 
| the computer thinks you've let al- 
Finally, Memo Diary saves your | 


most a whole year go by. To warn 


| you of this, Memo Diary displays 


HAPPY NEW YEAR. If you see this 
message when a new year hasn't 
arrived, stop the program and start 
over, entering the correct date. 


A Memory Jogger 

Except for the very first run, Memo 
Diary always begins by reporting 
all due and overdue events (“You 
just missed your anniversary’). 
Take careful note of these events, 


since theyll soon be erased from |} 


the calendar (if they’re temporary 


events) or moved ahead to next | 


year (if they’re permanent). To help 
jog your memory, Memo Diary also 


lets you make a copy of the list of | 


events on your printer, 

After disposing of due and 
overdue events, Memo Diary dis- 
plays five options: You can see fu- 
ture events, add a new event, cancel 
an event, search for an event, or 
quit the program. You'll ordinarily 
want to look ahead to see what's 
coming in the next week or two. To 
do this, choose Option 1 (see future 
events) and supply an appropriate 
future date when requested. If you 
enter the current date when looking 
at future events, Memo Diary as- 


sumes you mean the same date next 
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| year and gives you everything on 
file. 

When you want to make a new 
entry, select Option 2 (add new 
event). First Memo Diary asks 
whether the new event is one-time 
or permanent. Then it lets you enter 
the date and details. Again, the cur- 
rent date is understood as one year 
| from today (it’s assumed you don’t 
need to record an event that’s hap- 
pening the same day). 

To cancel an event (Option 3), 


event is entered, youre shown ev- 
ery item scheduled for that date, 
each with its own code number. To 
cancel an event, type in its code 
number when prompted. 

Option 4 (search for event) lets 
you search for an event based on 
the first few letters of the entry. You 
may find many events in the course 
of a search. For instance, if the cal- 
endar file contains the events CLUB 
MEETING, CLUB CONFERENCE, 
and CLUB ELECTION, searching 
| for CLUB displays all three events. 
In this case you would not see the 
| entry CANADIAN CLUB, since 
CLUB is spotted only if it’s in the 
first word of the entry. Thus, if you 
plan to search for certain keywords 
(BIRTHDAY, CHURCH, SOFT- 
BALL, or whatever) keep them at 
the front of each calendar entry. 

After you've finished an op- 
tion, Memo Diary always returns 
you to the main menu, Sooner or 
later you'll be ready to use Option 5 
(quit), The program knows when 
| it’s time to update the calendar file. 
If you've erased past and overdue 
events, added or deleted items, 
Memo Diary will—with your per- 
mission—proceed to update the 
data file on disk or tape. 


The Time Pivot 

A program that handles dates can 
encounter some subtle paradoxes. 
Does August come before April, or 
after it? The correct answer is both. 
Memo Diary could resolve this dif- 


ficulty by adding a year designation 
to every event, but that complicates 
the handling of permanent events, 
which don’t belong to a specific 
year. This is not a trivial problem: If 
you schedule a new event for Au- 
gust, the program must decide 
whether to add the event to the cal- 
endar ahead of an existing April 
event, or after it. Without a year 
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designation, how can anyone tell? 
The problem is solved by using 
a pivot date, usually the same as the 
current date. If today is July 4, Au- 
gust does indeed come before April. 
On the other hand, if today is No- 
vember 11, April comes before Au- 
gust. Since the calendar always 
looks one year into the future, ev- 
erything is kept in order. 
However, there’s one case in 
which the pivot date can’t be the 


| current date, Each time the program | 
you must know its date. When an | 


begins, it must measure the time 


| lapse since its last use. For example, 


say that you last used the program 
on August 20, 1985 and next use it 
on September 4, 1985. On the first 


run (August 20) Memo Diary uses | 


August 20 as the pivot. That way an 


event dated September 1 is seen | 


ahead of another item dated in 
October. 

On the second run (September 
4) the September 1 event is report- 
ed as past due and either erased 
from the calendar (if it’s temporary) 
or moved ahead to September 1 of 
next year (if it’s permanent). Once 
this is done, the pivot date moves 
forward to September 4, meaning 
that a September 1 event now be- 
longs after an item dated in Octo- 
ber, Don’t worry if this sounds 
confusing: It works out more sim- 
ply in practice than in theory. 

The day of the week is worked 
out with a simple formula. If you 
haven't seen it before, here’s a hint 
on how it works. The calendar is 
modified to make March 1 the first 
day of the ‘‘adjusted year.’ This 
way, leap year with its extra Febru- 
ary 29 date doesn’t break up the se- 
quence of days: The extra leap day 
just gets pasted onto the year's end. 
Though the math is a bit convolut- 
ed, you may find it interesting to 
trace the logic of this routine (it 
starts at line 2150). 


Expanding The Calendar 

Memo Diary can keep track of a 
maximum of 100 events. In practice 
it’s wise to limit the number to 80 or 
90 to leave room for permanent 
events that move automatically 
from the front to the back of the list. 
If you need more than 100 events, 
change the L$ value in the DIM 
statement. Line 150 contains the 
value L$(100). You can increase the 
100 to whatever number you like, 
but don’t get carried away. Since 





Memo Diary uses string arrays, a 
very large value may cause garbage 
collection delays. There’s no partic- 
ular limit to the number of events 
allowed for a particular date. 


Program Notes 

Let’s take a look at the program's 
major features. Line 90 prepares 
Memo Diary to read a file. The vari- 
able F is a Boolean (logical) variable | 
that’s defined as true here, to let | 


| you read the calendar file on a nor- 
/malrun. When you enter at line 100 — 


on the first run, F is false (like every 
other undefined variable) and no 
file is read. 

DATA statements in lines 
110-140 hold the names of the 
months of the year and days of the 
week; the names are read into the 
arrays MS and WS. Line 150 dimen- 
sions the L$ array for 100 items. 
Lines 230-250 call for a reading of 
the calendar file if appropriate, This 
is done in the subroutine at line 
3010. When Memo Diary reads this 
file, it detects and reports the last 
date the file was used. Line 260 
asks for today’s date; the subrou- 
tine at line 1670 asks for and ac- 
cepts the date. 

Now it’s time to search for due 
and overdue events, Using the pre- 
vious date as a pivot, the subroutine 
at line 1960 scans for all events up 
to today’s date. The program re- 
ports these events, erases them, or 
moves them ahead as needed, and 
proceeds to the main menu. Line 
680 begins a main activity loop: It 
prompts with the menu, asks for a 
choice, then goes to the appropriate 
subroutine. Line 850 lets you see 
future events. Since the pivot date 
is now today, the program scans to 
the requested future date to see 
how many events fall into the to- 
day-to-future-date range. 

Line 940 lets you add a new 
event. After asking ANNUAL OR 
ONE-TIME? the program requests 
the event's date and then asks for 
details. After adding a year desig- 
nation to the date of one-time 
events, the new event is inserted 
into the proper sequence. Line 1210 
lets you cancel an event. Memo Di- 
ary asks for a date and then lists all 
events that match that date. At line 
1350, the program asks which 
event to delete. Note that the num- 
ber you supply must be in the cor- 
rect range. 





Line 1450 begins the search- 
for-an-event routine. After it re- 
ceives a search string (P$), the 
program looks for a match. When it 
scans through the calendar, it must 
look in different places depending 
on whether the event is one-time or 
permanent. That's because one- 
time events carry a year designa- 
tion, making their dates three 
characters longer. 


A Horrible Mistake? 

Line 1570 handles the quit option; 
the flag F9 registers activity. If you 
haven't changed any of the data, 
there’s no need to update the calen- 
dar file. Before scratching the old 
file and writing the new one, the 
program asks whether you're 
ready. That way, if you made some 
horrible mistake, you can cancel the 
file update. 

The main loop ends at line 
1580 and is followed by several 
subroutines. The routine starting at 
line 1590 writes a new calendar file 
when appropriate, and line 1670 


begins the date input routine. The . 


date is formed into a string (D8$) to 
allow for easy searches or entry. 
The subroutine at line 1930 reads 
the calendar file. The first item in 
the file is always the most recent 
date of use; the remaining data is 
events. 

The subroutine at line 1960 
scans all events to see which have 
dates between the pivot date (D9$) 
and a second date (D8$). There are 
three dates involved: event, pivot, 
and the second date, which makes 
the comparison a bit messy. Bool- 
ean variables keep everything in or- 
der. Eventually, the variable FO 
indicates the date is in range, and 
the variable LO indicates when the 
last event is found within the date 
range. 

The routine starting at line 
4020 displays the information, on 
the printer if desired.) The date is 
given complete with the day of the 
week, and events falling on the 
same day are grouped together. The 
weekday calculation begins at line 
2150. The weekday variable, W, 
ranges from 0 to 6, so 0 means Sun- 
day. As written, this routine is good 
for years ranging from 85 (1985) to 
84 (2084). If you want to plan more 
than 99 years in advance, you'll 
need to modify the routine. 

See program listing on page 77. @ 





The 
Construction 
Set 


Fred Karg 


This unique program has the fun elements of a game, but it’s 

not a game. A creative toy? Maybe. If that sounds too vague, it 
could also be called a tool for computer-aided design. Whatever 
you call it, you'll find it’s a lot of fun for children—and adults. 


A joystick is required. 


All our lives we build things, often 
just for the fun of it, Toddlers play 
with building blocks. Grade school- 
ers create elaborate structures with 
Tinker Toys, Lego blocks, and Erec- 
tor sets, Teenagers put together 
model cars and planes, Adults have 
basement workshops for making 
things out of wood, Even the pro- 
cess of writing a computer program 
can be described as building some- 
thing from parts. 

‘The Construction Set” is 


grams. It can hold up to four differ- 


ent sets of building blocks which | 


can be combined easily in any way 


| you like. No one wins or loses and 
| there’s no high score. But it’s great 


fun to create your own interesting 
picture. 


Special Typing Instructions 

The program listings include a 
BASIC program and three pro- 
grams in MLX format. Type in Pro- 


gram 1 (The Construction Set Main | 
Program) first. Datassette owners | 


should change DI=8 to DI=1 in 
line 160. 





The three MLX listings (Pro- 
grams 2-4) are not machine lan- 
guage programs; they’re character 
sets for three different sets of build- 


_ ing blocks. Follow these directions — 
| to create each of the character sets: 


1. Load the MLX entry pro- 
gram (found elsewhere in this is- 
sue), If you haven't used it before, 
be sure to read the directions 
carefully. 


2. Type RUN and answer the 


unlike most other computer pro- prompts: 


Starting Address: 7000 
Ending Address: 7803 


3. Type in Program 2, 3, or 4, 
When you've finished, save the 
program. 

4. Repeat these steps for each 
of the character sets you wish to 
use, 

You don’t have to type in all of 
the character sets, but you need at 
least one for The Construction Set 
to work properly. 

Line 170 of the main program 
keeps track of how many character 
sets will be loaded and what their 
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names are, Currently, it’s set up for 
| 3. If you enter only one or two sets 
of building blocks, change the 3 toa 
| 2 or 1 and follow it with a comma 
and the name you used to save the 
character set file. 
Tape users should be especial- 

ly careful with line 170. Save all of 
| the character sets to the same tape, 
one after another. Remember 
which one was saved first and 
make sure that filename is the first 
in line 170. For example, if you 
| typed in and saved the first two 
| sets, and saved them as HOUSE 
| and MONSTERS, line 170 of the 
| main program should read: 
| 170 DATA 2,“"HOUSE",“MONSTERS” 


Remember to modify line 160 
| as well, 


Putting Together A Picture 
When you first load and run [he 
Construction Set, you'll see the 
menu of commands on screen 
while the program loads the char- 
acter sets. 

Any time you want to check 
the menu, press f7 and the list of 
commands will appear (press f7 to 

go back to the work area). 


The work screen is divided into 
two parts. At the bottom, you 
should see several building blocks, 
A pointing hand symbol floats 
above the blocks. Use the cursor 
keys (left and right) to move the 
hand back and forth to select the 
| block you wish to place on the 
/ screen. Press the plus and minus 
| keys to see more building blocks in 
the same set. Some blocks are full 
size, others are shorter. 

The top part of the screen is the 


low rectangle). With a joystick in 
port 2, move the window around 
the screen. Then press the joystick 
fire button to place a building block 
on the screen in the same position 
as the rectangle. To erase it, tap the 
| INST/DEL key, Whichever block 
the hand is pointing to at the bot- 
tom of the screen is the one that's 
stamped on the screen. 

The process of creating a de- 
sign is fairly easy. First move to the 
set of blocks you want with the plus 
and minus keys, then use the cursor 
keys to move the hand to the pat- 
tern you want, After selecting a 
block, position the window and 
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press the fire button. Patterns can 


| be repeated as often as you like. 


If you forget the commands, 
press f7 to see the menu. If you 
want to start over, clear the screen 
by pressing the shifted 
CLR/HOME key. 


When you're finished, you can | 


experiment with different colors for 
different parts of the screen. Press 
the left-arrow key (right above 
CTRL) and then one of the follow- 
ing keys. 

(~) fl: Change border color. 

(~) £3: Change screen color. 

(-) f5: Change character colors. 


Four Character Sets, 
Four Screens 


The Construction Set has room for 
four different character sets. Each 
defines a set of building blocks. The 
three accompanying the program 
are ‘‘House’’ for making brick 
buildings, “Creature” for putting 
together people (and monsters), 
and ‘‘Shapes’”’ for abstract patterns. 
These custom character sets were 
created with “Ultrafont +” from 
the July 1984 GAZETTE. You can cre- 
ate your own Construction Set 
building blocks if you have a copy 
of Ultrafont +. You could invent 
building blocks for electronic cir- 
cuits, quilts, landscapes, flags, or a 
variety of other patterns. 

Each set of building blocks has 
its own screen. You can travel be- 
tween the workspaces of each of 
the character sets by pressing f1 (as 
mentioned above, if you press the 
left-arrow key first, f1 changes the 
border color). The pictures you've 
created are preserved when you 


| switch back and forth. So if you 
work space. At first the screen is 


blank, except for a window (a hol- | 


press fl four times, you'll come 


back to the screen where you start- | 


ed and the picture will still be there. 


An interesting modification for | 
children is to load the same set of | 


building blocks into all four work- 
spaces, For example, you could 
change line 170 to 170 DATA 4, 
“CREATURE”, CREATURE- 
” “CREATURE”,“CREATURE” 
(tape users will have to use MLX to 
save the Creature font four times in 
a row on a single tape). Then have 
the child make up a story and build 
four pictures to illustrate the plot. 
When the characters have been put 
together, use f1 to step through the 
pictures as the child tells the story. 
See program listings on page 11/7. @ 


Save Your 
Copies of 


COMPUTE! 


Protect your back issues 
of COMPUTE! in durable 
binders or library cases. 
Each binder or case is 
custom-made in flag-blue 
binding with embossed 
white lettering. Each holds 
a year of COMPUTE!. Or- 
der several and keep 


| your issues of COMPUTE! 


neatly organized for quick 
reference. (These binders 
make great gifts, too!) 


Binders Cases: 

$9.95 each; $7.95 each; 
3 for $27.95; 3 for $21.95; 
6 for $52.95 6 for $39.95 


(Please add $2.50 per unit 
for orders outside the U.S.) 


| Send in your prepaid order 


with the attached coupon 


Mail to: Jesse Jones Industries 

P.O. Box 5120 

Dept, Code COTE 

Philadelphia, PA 19141 
Please send me COM- 
PUTE! O cases O binders. 
Enclosed is my check or money 
order for § _. . (U.S. funds 
only.) 
Name 
Address — 
City 
State 


= Zip 
Satisfaction guaranteed or money 
refunded. 

Please allow 4-6 weeks for delivery. 








as nth build: your own fully IBM 





With computers firmly established in 
offices—and more and more new 
applications being developed for every 
facet of business—the demand for 
trained computer service technicians 
surges forward. The Department of 
Labor estimates that computer service 
jobs will actually double in the next ten 
years—a faster growth rate than for any 
other occupation. 


Total systems training 


No computer stands alone... 
it’s part of a total system. And if 
you want to learn to service and repair 
computers, you have to understand 
computer systems. Only NRI includes a 
powerful computer system as part of 
your training, centered around the new, 
fully IBM-compatible Sanyo 880 Series 
computer. 

As part of your training, you'll build 


this highly rated, 16-bit ,IBM-compatible 


computer system. You'll assemble 
Sanyo’s “‘intelligent’’ keyboard, 
install the power supply and disk 
drive and interface the high- 
resolution monitor. The 880 
Computer has two operating 
speeds: standard IBM speed 

of 4.77 MHz and aremarkable 
turbo speed of 8 MHz, It’s con- 
fidence-building, real-world 
experience that includes training 
in programming, circuit design 
and peripheral maintenance. 


No experience necessary — 
NRI builds it in 

Even if you ve never had any previous 
training in electronics, you can succeed 
with NRI training. You'll start with the 
basics, then rapidly build on them to 
master such concepts as digital logic, 
microprocessor design, and computer 
memory. You'll build and test advanced 
electronic circuits using the exclusive 
NRI Discovery Lab®, professional digital 
multimeter, and logic probe, Like your 
computer, they're all yours to keep as 


ont microcomputer 
























Your NRI total systems training includes all of 

this; NRI Discovery Lab” to design and modify circuits » 
Four-function digital multimeter with walk-you-through instruction 
on audio tape * Digital logic probe for visual examination of 
computer circuits * Sanyo 880 Series Computer with “intelligent” 
keyboard and 360K double-density, double-sided disk drive 
* High résolution monochrome monitor « 8K ROM, 256K 
RAM * Bundled software including GW BASIC, MS DOS, 
WordStar, CaleStar * Reference manuals, schematics, 
and bite-sized lessons. 


ia =NRl is the only 
fae technical school that 
ier, trains you on a total 





Send for 100-page free catalog 








ma You instal and Send the coupon today for NRI’s 100- 
check keyboard, . ' 
power supply disk page, full-color catalog, with nll the facts 
rive, a Monitor, 






about at-home computer training, Read 
detailed descriptions of each lesson, 
each experiment you perform. See each 
piece of hands-on equipment you'll work 
with and keep. And check out NRI 
training in other high-tech fields such 
as Robotics, Data Communications, 
TV/Audio/ ye eden and more. 


following ste 
step ection | 








part of your 
training. You even 
get some of the 
most popular software, including WordStar, 
CaleStar, GW ease ae MS DOS. 












BS, PL, a SCHOOLS 


w,!,. 
McGraw-Hill Continuing Education Center c i 
3939 Wisconsin Avenue, NW, Washington, DC 20016 Ball | 


We'll give you tomorrow. 


iw CHECK ONE FREE CATALOG ONLY 


[_] Computer Electronics 

[_) TViAudio/Video Servicing 
[_} Satellite Electronics 

[_] Robotics & Industrial Contro! 
_] Data Communications 





[_] Appliance Servicing 

[ | Small Engine Repair 

L_] Alr Conditioning, Heating, & 
Rofrigeration 


C1] Industrial Electronics | 
[] Locksmithing & Electronic Security | 


__] Communication Electronics 
(] Electronic Design Technology 
() Telephone Servicing 


(_) Bullding Construction 
[") Digital Electronics Servicing 


[_] Automotive Servicing 
) Photography 
(_] Bookkeeping & Accounting 


[_] Basic Electronics 
) Electricians 


Name (Piaase print) Age 





Street : | 





CityStateZip 


231-028 
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Accredited by the National Home Study Council 


128 DOS Wedge 


Shawn K. Smith 


This utility makes it easier for 128 users to communicate with 
their disk drive—the 1541 or 1571. Similar to DOS wedges for 
the VIC and 64, its commands should be familiar to many 


Commodore owners. 


Commodore disk drives are intelli- 
gent peripherals. They have their 
own RAM, ROM, and CPU. The 
computer gives commands to the 
disk drive, and the drive decides 
how to carry them out. 

Unfortunately, the interface 
between the user and disk drive 
isn't always friendly. To aid owners 
of the VIC and 64 (and the 128 in 64 
mode), Commodore supplies the 
VIC-20 Wedge and the C-64 Wedge 
on the Test/Demo disk that comes 
with the 1541 disk drive. Unfortu- 
nately, no wedge has been made 
available for the Commodore 128. 
Of course, BASIC 7.0 has new disk 
commands, but these are longer 
than the DOS wedge equivalents 
and are unfamiliar to people who 
have previously used the wedge on 
the 64 or VIC. 


Simple And Efficient 

To demonstrate the efficiency of the 

DOS wedge, let’s look at a quick ex- 

ample. Assume that the light on 

your disk drive is blinking, and you 

want to read the error channel. 

Without the wedge, you must type 

this (in BASIC 2.0): 

10 OPEN1,8,15:INPUT#1,E,D$,T$, 
S$:CLOSE1:PRINT E;D$;T$;S$ 

With the wedge activated, sim- 
ply type an at sign (@) and press 
RETURN. The equivalent BASIC 
7.0 command is PRINT DS$. This is 
preferable to the BASIC 2.0 version, 
but it requires seven more key- 
strokes than the wedge. 

“128 DOS Wedge” works only 
in direct mode, If you need to access 
the drive from within a program, 
you should use the special com- 
mands BASIC 7.0 offers. In direct 
mode, however, one keystroke is all 
you need to perform a variety of 
useful disk functions. 
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Typing It In 

Because 128 DOS Wedge is written 
entirely in machine language, it 
must be entered with “MLX,” the 
machine language entry program 
found elsewhere in this issue. Be 
sure to read and understand the in- 
structions for using MLX before you 
begin entering the data for 128 
DOS Wedge. When you run MLX, 


you'll be asked for a starting ad-— 
dress and an ending address for the — 
data you'll be entering. The correct — 


values for 128 DOS wedge are 


1A00 

1AEF 

After you finish typing in the data, 
be sure to save a copy before you 
leave MLX, When you're ready to 
use the wedge program, you can 
load and execute it using 
BLOAD“filename":SYS 6656 


Starting address: 
Ending address; 


or 
| BOOT “filename” 

Substitute the filename you used 
when you saved the 128 DOS 





128 DOS Wedge Commands 





Wedge data for filename in the com- 
mands above. 

With the wedge in memory, 
you can save a copy of it to another | 
disk with this statement: 


BSAVE" filename”,P6656 TO P6896 


Now, with 128 DOS Wedge 
loaded and activated, you have a 
powerful disk management system. 
(See the table for a list of available 
commands and explanations.) 

128 DOS Wedge is stored in 
the free RAM area at locations 
$1A00-1AED, so it doesn’t inter- 
fere with BASIC. However, any 
other ML program or data stored in 
this area will cause conflicts. The 
program also uses the RS-232 input 
buffer (at $0C00) for analyzing 
command strings. 

If you need to disable the 


| wedge, use the ! command. The 


wedge can be reactivated with SYS 
6656. 

Following is a list of 128 DOS 
Wedge default settings. 


e All loads, saves, verifies, and di- 
rectory listings are directed to de- 
vice 8 (U8), drive 0 (DO). 

e All disk commands (@ or >) de- 
fault to device 8. The drive number 
(if applicable) should be supplied 
by you. 

¢ The % command loads a file be- 
ginning at the address from which 
it was saved. If you want to load a_ 
binary file into a bank other than |. 
zero, use BASIC’s BLOAD command 
instead. 


See program listing on page 121. 





+ Drive Status: @ or > Use this command when the drive light is blinking. 
Send Command: @command or >command This sends a command to the disk 


drive. 


Examples: @S0;filename (scratches a file) 
@S0:filename1,filename2,filename3 
@RO:newname=oldname (renames a file) 


Directory: * or $ This command lists the directory. Wildcards are allowed. 


Examples: * (lists entire directory) 


$*=S (lists all sequential files) 
Load BASIC program: / filename loads a BASIC program into memory. 


Load and run BASIC program: t filename loads and runs a BASIC program. 


Load a binary file: % filename loads a binary file into memory. 


Save file: - filename saves a file to disk. 


Verify file: ; filename verifies a program. 


Disable wedge: ! turns the wedge off. 





Reactivate wedge: SYS 6656 turns the wedge back on. 





128 Instant Keywords 


Shawn K. Smith 


Save time and typing effort with this short utility for the Com- 
modore 128. Up to 52 keywords can be entered, each an easy- 
to-remember, two-key combination. 


“Instant Keywords” can drastically 
reduce the time it takes to type ina 


program. This utility prints a BASIC . 


7.0 keyword when the Commodore 
or SHIFT key is pressed in conjunc- 
tion with a letter key. For instance, 
pressing the SHIFT and L keys dis- 
plays the keyword LOOP. A total of 
52 keywords can be displayed in 
this fashion. Refer to the chart for a 
list of the key combinations. Also, 
pressing the SHIFT or Commodore 
key while in quote mode displays 
the standard graphics characters 
rather than a BASIC keyword. 

Instant Keywords is short and 
easy to use. Although it contains 
mostly machine language (ML), 
you don’t have to know any ML to 
use it. In fact, you can just type it in 
and run it as a BASIC program. 
First, type in the program and then 
save a copy. When you run it, the 
BASIC loader stores the ML in an 
area of RAM which is determined 
by the value S in line 100 (changing 
the value of S will relocate the utili- 
ty). Once the data is stored in RAM, 
the utility is activated, the address 
to deactivate/reactivate it is dis- 
played, and the loader is erased 
from memory. Pressing RUN /STOP 
and RESTORE is another way to 
deactivate the program. 


Modifying The Program 


Readers may wish to rearrange the 


utility to support a different set of | 


keywords, This can be accom- 
plished with minor changes to the 
utility. But first, a quick background 
about keywords is in order. BASIC 
7.0 contains 130 plus commands or 
keywords. Most of the keywords 
(including all of the keywords in 
the 64’s BASIC 2.0) are represented 
by one-byte tokens. For instance, 
the command PRINT is stored in 
the computer with a token value of 
$99 (153 decimal). Because the 128 
has a larger vocabulary, the design- 
ers of the 128 decided to use two- 
byte tokens to represent some of 
the new commands. All of the new 
two-byte commands use $CE or 
$FE as the first byte of the token. In- 
stant Keywords will allow you to 


use any keyword except those that | 


begin with $CE as the first token 
value. (This eliminates the use of 
only eight keywords.) 

The last 52 hexadecimal values 


in the loader (beginning with OB in | 


line 200) are the token values of the 
keywords displayed by Instant Key- 
words. The first 26 hex values are 
for the SHIFT key (the token for 
SHIFT-A is the first, and the token 


for SHIFT-Z is the twenty-sixth). | 
The last 26 values are for the Com- | | 


modore key. If you plan to add to- 
kens for any two-byte commands, 
leave off the first byte (6FE)—the 
program knows that it is a two-byte 
command and will adjust itself ac- 
cordingly. If you’re unsure of the 








token value of any keyword, type 
in this program: 


18 GOTO30 | 

20 REM **PLACE KEYWORD HERE** 

30 ={B)15:B=PEEK(45)+12+PEEK(4 
6)*256:PRINT"KEYWORD VALUE ( 
S) = "3 


40 H=PEEK(B):PRINTRIGHTS (DIM(H 


aie. tts 
50 IFH=2540RH=206THENB=B+):GOT 
046 


In line 20, type the keyword 
for which you want to find the 
token value. Run the program and 
it will display the token value for 
the keyword you've inserted. 


Commodore 


STRS 
BEND 
COLOR 
DCLOSE 
ENVELOPE 
FILTER 
GOSUB 
DEC 
INSTR 
PLAY 
CHAR 
LOCATE 
MOVSPR 
COLLISION 
SPC( 
PAINT 
SSHAPE 
RESTORE 
SOUND 
TEMPO 
UNTIL 
DATA 
WINDOW 
PEEK 
CIRCLE 
RIGHTS 


Letter SHIFT 


A SLEEP 
BEGIN 
CHR$ 
DOPEN 
ELSE 
FOR 
GOTO 
HEX$ 
INPUT 
JOY 
DRAW 
LOOP 
MID$ 
NEXT 
TAB( 
PRINT 
GSHAPE 
RETURN 
SPRITE 
THEN 
USING 
READ 
WHILE 
POKE 
GRAPHIC 
LEFT$ 


5 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
O 
P 
Q 
R 
5 
T 
U 
V 
Ww 
x 
Y 
i 


See program listing on page 126. 
(i) 
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64 Mode Speed-Up 
For The 128 


Gary Lamon 


Once you get used to the 128’s fast mode, 64 mode seems espe- 
cially slow. This short program offers a way to significantly 
speed things up. For the 128 in 64 mode only; the program 


doesn’t work on a standard 64. 


The more you use a computer, the 
more you wonder if it couldn’t be 
just a bit faster—especially when it’s 
in the middle of a time-consuming 
task like alphabetizing a list of 800 
names, If you own a Commodore 
128, you can use the FAST com- 
mand to double the speed of pro- 
grams running in 80 columns. 
Although it also works in 40 col- 
umns, the screen goes blank. When 
you type GO 64, you give up access 
to the FAST command, but you don’t 
have to give up fast mode. There are 
| several interesting ways to squeeze 
more speed out of the Commodore 


128’s 64 mode. First, let’s look at | 


| some background information. 
Every computer has an internal 


| The faster the clock’s speed, the 


| more instructions the computer can | 


execute in a given time. A Commo- 
| dore 64 contains a 6510 micro- 


processor with a clock speed of © 
| about 1 megahertz (MHz), one mil- | 
lion cycles per second. On the other — 


_ hand, the Commodore 128 uses an 
| 8502 microprocessor that’s compat- 
ible with the 6510 but can run ata 
speed of either 1 or 2 MHz. When 
you re using the 64 mode on your 
128, the system automatically sets 
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the speed of the 8502 so that the 
machine performs exactly like a 
Commodore 64. 

It seems a waste that 128 users 
cannot make use of this additional 
speed when running their old 64 
programs in 64 mode. But there is a 
way. We can double the computer's 
speed in 64 mode with a few simple 
POKEs: 

POKE 53296,1 (double speed) 

POKE 53296,0 (normal speed) 

POKE 53296,3 (double speed and screen 
off) 


If you try the first or third of 
these POKEs in 64 mode, you'll in- 
deed find that your programs run at 
twice normal speed; but there’s a 


| problem. The screen fills with a 
clock which paces the processor. | 


flashing checkerboard pattern (if 
you use the first POKE) or goes com- 
pletely blank (if you use the second). 
The regular screen is still there, but 
it cannot be read. The problem is 
that the 40-column video chip (the 
VIC Il) cannot keep up with the 
8502 when the 8502 is running at 2 
MHz. The third POKE works well 
on a 64 program that does, say, a 
great deal of number crunching. 
With this kind of program, it’s prob- 
ably not important to have video for 
part of the program’s execution, 


There’s another way of achiev- 
ing a significant speed increase 
while retaining an almost normal 
picture, The program accompany- 
ing this article—“64 Mode Speed 
Up’’—provides approximately a 20 
percent speed increase and leaves 
the screen readable. After typing in 
the program, save a copy. While in 
64 mode, load and run the program 
and then type NEW. Your machine 
is now 20 percent faster. To return 


to normal speed, type SYS 49236 or 


press RUN/STOP-RESTORE. To 
get back to fast speed, type SYS 
49152. If you'd like to check this, 
write a short BASIC program witha 
large loop (such as: 10 FOR I = 1 
TO 30000:NEXT) and time it to 
measure the speed increase. (Note: 
You should return to regular speed 
before all disk or tape operations). 


How It Works 

You may have noticed a flash at the 
top of the screen while at fast 
speed. This is normal. But what 
causes this flash and how does the 
program work? 

The program works by using a 
machine language raster interrupt 
routine in locations 49152-49258, 
The raster can be thought of as a 
sort of paintbrush that paints the 
picture on the video screen. The 
raster paints one line at a time 
across the screen starting at the top 
left and then moves down one line 
ata time. The program takes advan- 





tage of the fact that we can see only | 


raster lines 51 to 251. The computer 
| is interrupted when the raster is at 
line 251 (the last visible line) and 
told to speed up to 2 MHz. This 
speed is maintained until the raster 
reaches line 51 (the first line we can 
see) and then reduced to 1 MHz. 
| While the screen is ‘‘painted,’’ the 
computer is running at regular 
speed. The result is a computer that 
runs faster, and you don’t have to 
sacrifice the screen. 

But what causes the flash at the 
top of the screen? Occasionally the 
computer is performing a task and 
does not want to be interrupted 
quite yet, so a few raster lines are 
done at the 2 MHz speed. (Remem- 
ber what happened when you typed 
POKE 53296,1?) 

Two memory locations within 
the interrupt program can be used 
to speed up the system even more: 
| POKE 49257, top raster line 
POKE 49258, bottom raster line 


As an example, try this with 


the fast mode operating (after SYS 
49152): POKE 49257,150. You'll 


find that the flashing garbage will | 


expand to fill the upper half of the 
screen, but the lower half will re- 
main normal. The computer will 
now run about 1.6 times faster than 
| a normal 64. You can expand or 
contract the screen any way you 
like with the two POKEs above. 
The more “garbage” visible, the 
faster the computer. One good way 
| to visibly check the speed of the 
computer is to load a BASIC pro- 
gram and LIST it at the fast speed 
and at regular speed, The listing 
will scroll by considerably faster 
with the interrupt operating. 
See program listing on page 122. @ 
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Mozart Magic 


James Bagley 


Based on a musical game devised by the composer Mozart, this 
delightful program for the Commodore 128 composes its own 
minuets in the style of Mozart himself. 


This Commodore 128 program is a 
translation of a game by Wolfgang 


Amadeus Mozart. It composes a_ 


complete, original minuet at ran- 


_dom. Mozart delighted in games of 


chance, so it was only natural that 
he should combine his two interests 
and produce an activity known as 
Mustkalisches Wuerfelspiel, or musi- 
cal craps. The idea was not original 
with Mozart, but his effort was the 
most successful. 


Making Music 


Type in and save the program; then 


| runit. After it plays an introduction 


and initializes, the program dis- 
plays a menu. You can choose a dif- 
ferent instrument for each voice, 
but most songs sound best if you 
choose the same instrument for all 
three voices. Some of the instru- 
ments such as the drum and xylo- 
phone may sound strange or faint; 
they are included for the sake of 


completeness, so you can hear what | 


all the 128’s instruments sound 
like. 

The next menu allows you to 
change the tempo. Press F to in- 
crease the speed at which the minu- 
et is played, press S to decrease the 





speed, and press E to exit the rou- 
tine. The tempo always defaults to 
8. The main menu reappears after 
the minuet is finished, 

The program itself is structured 
to reflect the composer’s original 
technique, Mozart set up two grids 
of 8 columns and 11 rows, The col- 
umns were numbered 1-8, and the 
rows were numbered 2-12. On the 
first throw of the dice, he scanned 
down the first column to the row 
numbered the same as the sum of 


the two die. At this intersection was | 


a number. He then copied down a 


- measure of music corresponding to 
this number and repeated the pro- 


cess until he reached the eighth col- 
umn of the first part. 

In the eighth column of the 
grid, each number referred to a 
measure of music with two sets of 
notes. Because the music modulat- 
ed to the dominant, the lower notes 
served for the first ending and the 
upper notes were for the second 
ending. Since these measures were 


all the same, M25(1) is used in the | 


program for the first ending and 
M2$(2) for the second ending of the 
first part of the minuet, 


| See program listing on page 115. @ 
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128 File Viewer 


Jeffrey D. Partch 


This Commodore 128 utility packs a double punch, It can print 
| the contents of any disk file or disassemble any machine lan- 
guage program directly from disk. Neither operation disturbs 
the program currently in memory. A disk drive is required. 


| Have you ever wanted to know the 
contents of a mysterious file in the 
disk directory, or needed to look at 
another file during a programming 
session? All too often, getting that 
information requires a lot of saving, 


loading, and listing. ‘'128 File | 


Viewer” allows you to display the 
contents of any program (PRG) or 
sequential (SEQ) disk file on the 
screen without harming the pro- 
| gram in memory, It can also disas- 
/semble any machine language 
program directly from disk—again, 
without disturbing the current pro- 
gram. Since it adds anew command 
to the Commodore 128’s BASIC, 
this program is very easy to use. 


Because File Viewer is written 
entirely in machine language, it 
must be typed in using the “MLX” 
machine language entry program 
found elsewhere in this issue. Be 
sure to read and understand the in- 
structions for using MLX before you 
begin entering the data for File 


Viewer. When you run MLX, you'll | 


be asked for a starting address and 
| an ending address for the data 
you'll be entering. Here are the ad- 
_ dresses for File Viewer: 

1350 

17E7 


Starting address: 
Ending address: 


When you finish entering the 
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data, be sure to save a copy to disk 
before you leave MLX. Once you 
have a completed copy of File 
Viewer on disk, you can activate it 
with a command of the form: 
BOOT “FILE VIEWER", Ddrive,Udevice 


Of course, you should replace 
FILE VIEWER in this statement 
with the filename you used when 
saving the data with MLX, If your 
disk drive is device 8, the normal 
device number for Commodore 
drives, you can omit everything 
after the closing quotation mark 
(just use BOOT “FILE VIEWER”). 
The first optional parameter is used 
to specify the drive number for 


dual-drive systems with drive 1 in | 


addition to drive 0. (Commodore 
1541 and 1571 drives are always 
drive 0.) The second parameter is 
used to specify a device number 
other than 8. For instance, BOOT 
“FILE VIEWER”,D0,U9 boots the 
program from a disk in a drive ad- 
dressed as device 9. 

When the familiar READY 


| prompt reappears, File Viewer has 


been installed and is ready to use. 
(Note that pressing the reset switch 
deactivates File Viewer.) This pro- 
gram works as an extension of the 
Commodore 128’s BASIC, so it’s as 
easy to use as any other BASIC state- 





ment. Here is the general syntax: 
VIEW “filename,type",Ddrive,Udevice 


Again, the last two parameters | 
are not needed if you are using a 
single 1541 or 1571 disk drive ad- 
dressed as device 8. 

The type parameter is also op- 
tional in most cases, since File 
Viewer ordinarily determines for it- 
self whether the file is a sequential | 
or program file, If necessary, how- 
ever, you can specify the type by in- 
cluding an S for sequential files or a 
P for program files. For instance, 
the statement VIEW “SAMPLE,S” 
displays the contents of the sequen- 


tial file SAMPLE, while VIEW 


“SAMPLE,P” displays the contents 
of a program file of the same name. 

File Viewer ordinarily reads 
and displays the entire file. You can 
slow the display by pressing the | 
Commodore key or pause it com- 


| pletely by pressing NO SCROLL. 


Press STOP if you wish to termi- 
nate the display before you reach 
the end of the file. 


Disassembly 

To aid machine language program- 
mers, File Viewer also includes a 
disassembly option. Here’s the syn- | 
tax to use: 

VIEW “filename,M" 


The M stands for machine lan- 


guage. It’s not a Commodore file 


type, but simply a signal to File 
Viewer that you wish to disassem- 
ble the file rather than print it to the 
screen. When you choose this op- 
tion, File Viewer reads the file from 








disk and disassembles it to the 
screen in standard 6502 assembler 
format. Just as with the display op- 


tion, you can slow the disassembly | 


with the Commodore key, pause it 


with NO SCROLL, or cut it off by | 


pressing STOP, 
Redirecting Output 


In most cases you'll want to look at 
a file on the screen. However, File 
Viewer also lets you divert the nor- 
mal screen output to a printer or 
other peripheral device. This option 
is most useful for machine language 
disassemblies, since it allows you to 
create a hardcopy printout of the 
program which can be studied at 
leisure, However, you can also use 
it as a quick way to print a text file 
without loading it into memory. 


Diverting output requires that | 


you open a logical file to the desired 
device, For instance, say that you 


want to send the contents of a file to | 
the printer. The statement OPEN | 


1,4 opens logical file 1 to the printer 
(which is usually device 4). Once the 
| logical file is open, you must tell File 
Viewer where to send its output. 
| This is done by adding the logical 
_ file number to the VIEW statement: 
| VIEW# file number,"filename,type", 
Ddrive, Udevice 
The logical file number must match 
the one you used when you opened 
the logical file, and must be in the 
range 1-127. As with normal for- 
mat for the statement, the type, 
drive number, and device number 
parameters are optional. For ex- 
ample, if you open a file to the 
printer with OPEN 1,4, this state- 
ment makes a hardcopy printout of 
the file SAMPLE from a disk in the 
drive addressed as device 8: 
VIEW#1, “SAMPLE” 


In special cases, you may wish 
to divert output to a disk file, or 
even to a modem via the RS-232 in- 
| terface. File Viewer isn’t picky 
about where it sends output, as 


long as you have properly opened a | 


logical file to the device. The Com- 
modore 128 System Guide explains 
the syntax needed to open a file to 
disk or RS-232 interface. 


Special Concerns 

The VIEW statement works only in 
direct mode; you should not at- 
tempt to add it toa program. VIEW 
| does not accept string or numeric 





variables in place of its parameters 
(you can’t use a statement like F$ = 


| “SAMPLE”: VIEW F$). 


The file display mode of File 
Viewer is intended primarily for 
looking at text files—that is, files 
that consist of printable character 


| codes. It is possible to view other 
| types of files such as tokenized 
| BASIC programs, but the display 


may be difficult or impossible to 
read in such cases. For instance, if 
the file contains values equivalent to 
control-code characters, displaying 
the file may clear the screen, change 
the printing color, and so forth. If 
you try to print a hardcopy of sucha 
file, some of the values may be inter- 
preted as spurious printer control 


| codes, causing strange behavior 
| such as unwanted form feeds or a 


change in printing mode. Similarly, 
disassembling a file that doesn’t 
contain a machine language pro- 
gram produces meaningless results, 
but does no real harm. 

The machine language for File 


Viewer occupies memory locations | } 
4944-6114 ($1350-$17E2). If you | ES tnopig nS A Canoe owtns 
disturb the contents of this area | ORTWARE (esernseceen rears coor 
while File Viewer is active, the. 


computer will probably lock up. 
The program also uses locations 
4864-4937 ($1300-$1349) and 
250- 254 ($FA-$FE) for temporary 
storage. You may use these loca- 
tions for your own purposes; how- 


| ever, every VIEW statement will 
overwrite the contents of these areas. | 
File Viewer also maintains a | 


six-byte bank-switching routine be- 
ginning at location 2048 ($0800) in 
both banks 0 and 1, This is neces- 
sary because some BASIC errors 
may occur while the system is oper- 
ating in bank 1. In bank 0, this area 
is at the bottom of the BASIC run- 
time stack, where it isn’t likely to be 
disturbed unless you run a program 
that uses a very large number of 
nested GOSUBs or FOR-NEXT 
loops. To accommodate this routine 
in bank 1, File Viewer bumps the 
start of variables up to address 2054 
($0806) when you first BOOT the 
program, thereby protecting the 
bank 1 copy of the switching rou- 
tine from being destroyed by the 
system. This results in a slight re- 


_ duction of the amount of space 


available for scalar variables, but 
should have no noticeable effect on 
the operation of BASIC. 

See program listing on page 102. @ 


WE WON’T PAY YOUR TAXES! 
But TAX MASTER will help you compute them more 
QUICKLY and EASILY. Be the Master of your Income 
Taxes with TAX MASTER, now available for your 1987 
Federal Income Taxes for the C64/C128 with single, 
twin, or dual disk drive and optional printer, 
© NEW Tax laws are covered. 

* FORMS 1040, 4562, & Schedules A, B,C, D, E, andF. 
* PEAFORMS all arithmetic CORRECTLY. 
* EASY CHANGE of any ontry with automatic RECAL- 

CULATION of the entire form. 

* TAANSFERS numbers between forms. 

* CALCULATES your taxes and REFUND, Tax tables 
ore included, 

e SAVES all your data to disk for future changes 

* PAINTS the data from each form. 

« CALCULATOR function is built in. 

* DISCOUNT coupon toward the purchase of next 
years updated program is included. 

TAX MASTER.......(DISK ONLY)....... ONLY $30.00 


TIRED OF SWITCHING CABLES? 
VIDEO MASTER 128 provides continuous 60 column color 
(AGB!), 8 column monochrome, and audio out, Switch between 
6 column monochrome and 40 column coor for composite 
monitor. Use upto 4 monitors af once Inchuder composite cable 

















FED UP WITH SYNTAX ERRORS? 


HELP MASTER 64 provides Inglant On-Line Help screens for all 
69 BASIC commands when you need them. Takes no BASIC 






RAM, No interference with loading, saving, editing, of running 
BASIC programs. Includes 34 page BASIC reference text, more. 


HELP MASTER 4 .......... hor Commodores ,....... 62406 


OTHER MASTER SOFTWARE ITEMS 


RESET MASTER Cé4 reset awitch with 2 serial ports 124.045 
CHIP SAVER KIT protects computer's chips from static § 5.06 
MODEM MASTER user port extender $29.95; with/reset $34.05 
Y-HOT? 6-foot serial ¥ cable, 1 mala, 27 famale connectors $16.00 
¥-¥ES! 6-foot serial ¥ cable, 3 male connectors $15.00 










C128 80 ool monochrome cable for non-AGB monitor $ 9.00 
Disk Motcher — lets you use both aides of disk $ 6.00 
(4-TRAAN Fortran compiler $50.00 
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64 RAMdisk 


Hubert Cross 


This Commodore 64 utility creates an electronic disk drive 
that’s much faster than an ordinary disk drive. Since it uses 
“hidden” memory, the RAMdisk doesn’t reduce the amount of 
| programming space available for your use. No machine lan- 
| guage knowledge is needed to use the program. 


A RAM disk is a familiar device to 
many personal computer owners. 
In simple terms, a RAM disk emu- 
lates a disk drive entirely in the 
computer's RAM (Random Access 
Memory), allowing you to store and 


retrieve files much faster than you | 
can from a mechanical disk drive. | 


| The Amiga, for instance, includes a 

built-in RAM disk as part of its sys- 

| tem software; and RAM disks are 

popular utility programs for com- 

| puters such as the Atari ST and IBM 
PC/PCir, 

“64 RAMdisk” is a RAM disk 

for the Commodore 64 which 

doesn’t subtract a single byte from 


the space normally available for | 


| programming. You control the 
RAMdisk with simple BASIC com- 
mands, and the program is compat- 
ible many disk utilities. 


Typing In 64 RAMdisk 

Because 64 RAMdisk is written in 
machine language, the program 
must be typed with the “MLX” ma- 
| chine language entry program 
printed elsewhere in this issue. 
Here are the addresses you need to 
enter 64 RAMdisk with MLX: 

0801 

12A8 

64 RAMdisk is designed to 
| load and run exactly like a BASIC 
program, Load the program with 


Starting address: 
Ending address: 
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LOAD “‘RAMDISK",8 for disk or | 


LOAD ‘“‘RAMDISK” (or simply 
LOAD) for tape. After the program 
loads, type RUN and press RE- 


TURN. The program relocates its | 


code to the safe memory area be- 
ginning at location 49152 and 
prints the message RAM DISK AC- 
TIVATED. 64 RAMdisk is now 
ready to use. 


RAMdisk Commands 

Following is a list of 64 RAMdisk 
commands, All of these commands 
work in BASIC direct mode (when 
you aren’t running a program). 
DIR. This command displays a di- 
rectory of the files in the RAMdisk. 
For instance, if you type DIR and 
press RETURN, 64 RAMdisk prints 
a directory of the RAMdisk. The 
number of bytes free for use is 
printed at the bottom of the directo- 
ry display. 

NAME. The NAME command can 
be used to change the RAMdisk’s 


name, which appears in reversed 
characters at the top of the directory | 


display. 

RSAVE. The RSAVE command 
saves a file to the RAMdisk, storing 
a copy of the BASIC program cur- 
rently in memory. Here is the cor- 
rect syntax for the command: 


RSAVE “PROGRAM" 








Of course, you should substi- 
tute the name of your program for 
PROGRAM in this example. If you 
forget to specify a filename, 64 
RAMdisk prints the error message 
MISSING FILENAME and doesn’t 
save anything. The filename can be 
any combination of 15 or fewer 
characters, 

RLOAD. The RLOAD command 
copies any program in the RAM- 
disk back to BASIC. For example, 
the statement RLOAD “‘EX- | 
AMPLE” loads the program named | 
EXAMPLE from the RAMdisk, stor- 

ing a copy of it in the usual BASIC 

program space. | 
SCRATCH. The SCRATCH com- 


| mand deletes a file from the RAM- 


disk. For instance, the statement 
SCRATCH “PROGRAM” removes 


| the filenamed PROGRAM from the 


RAMdisk. If you attempt to scratch 
a file that doesn’t exist in the RAM- | 
disk, the program prints the error 
message FILE NOT FOUND and 
doesn’t scratch anything. 

RENAME. This command changes 


| the name of a file in the RAMdisk. 


Here is the syntax to use: 
RENAME “OLDNAME”,“NEWNAME” 


The RENAME command re- | 
quires two filenames: the name of 
the existing file (OLDNAME in this 
example) and the new name which 
you want that file to have (NEW- 
NAME in this example). The filen- 
ames are separated with a comma. | 
The error message FILE NOT 
FOUND appears if you attempt to 
rename a nonexistent file. The error 
message FILE EXISTS appears if 





you try to use a new name which 
already exists in the RAMdisk. (Ev- 
ery file in the RAMdisk must have a 
unique name.) 

REPLACE. This command replaces 
the designated RAMdisk file with 
the BASIC program in memory, 
using the same filename. For in- 
stance, REPLACE “TEST” deletes 
the program TEST from the RAM- 
disk and saves the BASIC program 
in memory, using the filename 
TEST, This is normally done when 
you have made changes to a pro- 
gram and wish to save the revised 
version with the same name. 
RNEW. The RNEW command does 
a NEW of the RAMdisk, erasing ev- 
ery file that it contains. Be very care- 
ful when using this command, since 
the program does not ask you to 
confirm this action, and there is no 
easy way to recover files after an 
RNEW. If you include a name after 
RNEW, this command renames the 
RAMdisk with the name specified. 
For instance, this command erases 
everything in the RAMdisk and re- 
names it as MYDISK: 

RNEW “MYDISK" 


EXIT, This command disables the 
RAMdisk and gives you the option 
to save the entire contents of the 
RAMdisk in a single tape or disk 


RETURN, the program prints this 
prompt: 

EXIT RAM DISK 

ARE YOU SURE? (Y/N) 


If you type N at this prompt, 


nothing happens, If you type Y at | 


this prompt, the program copies the 
64 RAMdisk machine language 
program, as well as all the files in 


the RAMdisk, back into the BASIC | 
program space. This is done so that | 


you can save the entire RAMdisk as 
a single file, using a normal SAVE 
command from BASIC. The advan- 
tage of this method is that you can 
reload the RAMdisk program and 


| all of the saved files in one opera- 
| tion, at the beginning of your next 


programming session. You do not 
need to use any special tricks to 
save this file. Here is a typical SAVE 
command: 

SAVE “CABOODLE",8 


This example saves 64 RAM- 
disk and the entire contents of the 
RAMdisk under the filename CA- 
BOODLE. If you replace the 8 with 





a 1, the file is saved to tape instead | 


of disk. (The resulting file will be 
considerably longer than 64 RAM- 
disk itself, since it contains a copy 
of every file in the RAMdisk, as 
well as a copy of 64 RAMdisk.) 
Once you have saved a master 
file, you can reload 64 RAMdisk 
and the individual files with the 
same load and run commands you 
would ordinarily use to activate the 
RAMdisk. In this case, for instance, 
you would use these commands: 


LOAD “CABOODLE",8 
RUN 


If you type RUN and press RE- 


TURN at this point, the program | 


moves the 64 RAMdisk code to its 
normal location beginning at loca- 
tion 49152, then transfers each of 
the saved files to the RAMdisk, too, 
When the startup message appears, 
the RAMdisk is ready to use and all 
of the files are in place. 

Notice that the filename used 
with EXIT has no connection with 
the name of the RAMdisk itself (see 
NAME) or the names of individual 


a practical matter, however, you 
will probably want to use a name 


that reminds you what individual | 
_ bytes for a directory entry, 15 bytes 


| fora filename entry, 1 byte as a file- 


files the master file contains. If you 
previously used NAME to give the 


RAMdisk singful name, 
file. When you type EXIT and press | ISK a Meaningful name, you 


can use the same name when Sav- 
ing the entire disk with EXIT, 


RAMdisk Notes 

64 RAMdisk is designed asa 
convenience for saving and loading 
BASIC programs, not as a total re- 
placement for a disk or tape drive. 
Thus, it supports only one type of 


file—a BASIC program (PRG) file— | 
and only one form of file access | 


(saving and loading). You cannot 
use the RAMdisk for other types of 
files, such as sequential (SEQ) files. 
And, for instance, you cannot 
OPEN a file in the RAMdisk for 
reading or writing, even though 
those are legitimate operations for 
program (PRG) files on tape or flop- 
py disk. 

Like all RAMdisks, 64 RAM- 
disk is volatile, meaning that it dis- 
appears completely, together with 
all its contents, when you turn off 
the computer. For this reason, you 


should make frequent backup 


copies of RAMdisk programs on 
disk or tape. To make a backup 
copy, load the program into BASIC 


memory with RLOAD; then save it 
to disk or tape in the usual way. 
This program occupies the 
memory area beginning at location 
49152 ($C000), so you cannot use it 
with any other machine language 
program or utility that occupies the 
same space. Because this program 
uses the “hidden” RAM underlying 
the 64’s ROM (Read-Only Memo- 
ry) chips, it is also incompatible 
with programs which use that area 
of RAM, 64 RAMdisk does work 
with either TurboTape or Turbo- 
Disk, but not with both at the same 


| time, since those programs are in- 


compatible with one another. You 
must relocate TurboDisk, as ex- 
plained in the TurboDisk article, 
before using it with 64 RAMdisk; 
the best place to put TurboDisk is as 
close as possible to the top of 
BASIC RAM. 

The 64 has a total of 16K | 
(16,384 bytes) of RAM under its 
ROM chips. Half of this lies under 
the BASIC ROM, and the other half 
lies under the Kernal operating sys- 


files contained in the RAMdisk. As | te™ ROM. Not all of this RAM can 


be used for file storage with 64 


| RAMdisk. Every program stored in 


the RAMdisk requires an extra 18 


name marker, and 2 bytes for a 
pointer to the beginning of the next 
program. 

Programs are stored beginning 
at the bottom of the RAM under 
BASIC and growing upward, to- 
ward higher memory locations. The 
directory begins at the top of the 
RAM under the Kernal and grows 
downward, toward lower memory 
locations. If you fill the 8K space 
under BASIC with programs, 64 
RAMdisk uses as much of the RAM 
under the Kernal as needed. If you 
try to save a program that’s bigger 
than the amount of free space left in 
the RAMdisk, the program prints 
the error message RAM DISK FULL 
and doesn’t save anything. 

It's theoretically possible to 
create so many individual files that 
the RAMdisk directory would fill | 
all of the RAM under the Kernal | 
ROM. However, since it would re- 
quire more than 454 files to over- 


flow the directory, 64 RAMdisk 


does not check for this unlikely sit- 
uation, and does not print an error 
message if it occurs. 

See program listing on page 100. @ 
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Off-Screen Trace 


Brent Dubach 


BASIC programmers will appreciate this testing and debugging 
utility. It traces program execution line by line and displays 
the trace on an alternate screen so there's no interference with 
your program display. It also allows you to control the speed of 
the execution. For the Commodore 64 and 128 (in 64 mode). 


Tracing the path of program execu- 
tion is helpful when you're debug- 
ging a program. Most TRACE 
commands in BASIC languages 
print executing line numbers on the 
same screen as the program being 
traced. While acceptable for some 
| programs, in others this approach 
| so disrupts formatted text output 
| that it loses much of its debugging 
| value. For example, in programs 
that use a high-resolution graphics 
screen, tracing execution becomes 
| awkward since the normal text 
screen cannot be seen so long as the 
| program has the machine in the hi- 
| res graphics mode. 

Here’s a trace utility for the 
/Commodore 64 that avoids these 
problems by setting up its own dis- 
play screen. Your own program 
output is not disturbed, and the 


trace information can be seen at the | 


touch of a key. And the line dis- 


played is the line after the line | 


which has just been executed. 


How To Use The Trace 

Since “Off-Screen Trace” is written 
entirely in machine language (ML), 
you'll need to use MLX to type it in. 
When prompted for the starting 
and ending addresses, respond 
with the following: 

8800 

BAFF 

Be sure to save a copy before run- 
ning the program. 

Although Off-Screen Trace is 
written in ML, you don’t need to 
know anything about ML in order 
to use it. Once in memory, the trace 
program is activated by a SYS 


| Starting address: 
Ending address: 
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34816 command and deactivated by 
SYS 34970. These commands 


should be issued only in direct | 


mode and not from within a pro- 


gram. If you want to trace only a | 


part of the program, you may use 


RUN or GOTO followed by the line 


number at which you want to begin 
and then either a STOP command 
or the STOP key to halt execution. 
Tracing may be turned off at any 
time after it has been switched on. 
Be sure, however, that you do not fol- 
low a SYS 34816 with another SYS 
34816 without deactivating tracing in 
between. If you do this, you'll need 


to turn the machine off and back on | 


and start all over. 

Once Off-Screen Trace is acti- 
vated, pressing CTRL-O (for Other 
screen) will allow you to see a sepa- 
rate trace display that shows the 
line numbers in which statements 
us being executed. Pressing CTRL- 

O again returns you to whatever 
output screen your program is 
using. This keypress is not “‘de- 
bounced”’ by the program and 


| therefore has a very light touch. 
_ Use a quick, crisp keypress to toggle 
| between the two displays. 


Controlling Execution Speed 

Because of the overhead involved 
in tracing execution, programs al- 
ways run more slowly while being 
traced. This utility allows you to 
control the speed of execution with 
the space bar. It allows statements 
to be executed only when it sees 
that the space bar is held down. By 
holding it down, you can keep the 
program executing at maximum 





| speed, and you can also step 
_ through statements one at a time 
| with a quick single press of the | 


space bar. Regardless of which | 
screen is in view at the time you 
press the space bar, your own pro- 
gram screen will be reinstated 
before the next statement in the 
BASIC program is executed. Another 


| CTRL-O will retrieve the updated 


trace display. 

Instead of an unstructured se- 
quence of line numbers, the trace 
display shows executing line num- 
bers in an outline format that re- | 


| flects the organization of your | 
_ program. Each time a GOSUB is en- 
| countered, the trace display is in- | 
| dented two spaces, With each 

RETURN it is moved two spaces to 


the left of the left margin. Thus, you 
can easily tell by monitoring the 
line number display whether your | 
program is entering and exiting | 
subroutines as you intended. 


Memory Considerations 

The program uses memory at the 
top of the range normally available 
for BASIC program text and vari- 
ables. In addition to memory for 
machine language itself, memory is 
needed for the separate display 
screen and for saving certain impor- 
tant information when toggling be- 
tween displays. When activated 
with SYS 34816, the trace program 
protects itself and its display screen 
from incursions by BASIC by set- 
ting 33792 as the top of memory 


| available to BASIC. This still allows 


BASIC programs that need almost 


| 32K of memory and leaves all the 


typically used sprite and machine- | 
language areas available. You 
should note that some of this range 
of memory is the same as that used 
by ““MetaBASIC,” so you should 
disable ‘““MetaBASIC” before load- 
ing and using this trace facility. 

See program listing on page 98. @ 
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‘| Check the books or groups of books you want and 
mail this coupon with your payment-to: 


COMPUTE! Books 
Customer Service 


PO Box 


5038 


F.D.R. Station 
New York, NY 10150 


| * Add $2 per order for shippi 
| Name 


| Address 


NGS en State 


“SO VISA © Mastercard 


~~ | Acct. No. 


| [1 U.S. money order - | 


ng and handling. 


ZI. 





‘ MMA 


|G Check drawn on a U.S. bank 


subtotal 
Sales Tax (NC residents add 
~ residents add 8.25%) 
Shipping and handling $2.00 


| Total payment enclosed 


5%; NY 


Pr 


2.00 
| a 


. Offer good while quantities last. All sales final. 
Please allow 4-6 weeks for delivery. 


* 


EN SO go95 


© COMPUTE!’s Beginner’ Ss Guide to Commodore. 


64 Sound — ~~ -238654x. SY 


CO COMPUTE!'s First Book of Commodore 64 Sound 
and Graphics 2386213}. 
1 COMPUTE!'s Reference Guide to Commodore SS 
ee Graphics | | | 8 2d86208 hs 
o Group i SS SS $9.95 SS 
0 Every Kid's First Book of Robots 2386051 | 
C) Commodore 64 Games for Kids 238637X | 
[) COMPUTE!'s Computing Together 2386515 |. 
0 All About the Commodore 64, Volt. 2388640X |. 
C) Group Ill | $9.95 |. 
1 COMPUTE!'s Commodore Collection, Vol. 2. — . 
2386701 
0 3 COMPUTE! Commodore Collection, Vol. 1 De 
~ 2386558 
Rs COMPUTE!'s First Book of Commodore BESS RS 
. ~~ 2386205 }> 
C€) Group IV | . $9.95 |. 
CL COMPUTE!’s Third Book of Commodore 64 SES 
. ~ 2386728 | 
C1) Creating Arcade Games on the Commodore 64. |} 
Sy 2386361 RSS 
C1) COMPUTE!’s First Book of Gommodore ASS 
64 Games | 2386345 ‘ 
O Group Vo | | $9. 95°} 


C) COMPUTE!'s Data File Handler for the Commodore 


64 2386868 | 


Co COMPUTE!'s Telecomputing on the Commodore WN ts 
[Commodore Peripherals: A User's Guide 2386566 Rss 


Soi Group VI | 3 $9.95 


2 COMPUTE!s First Book of VIC 2386078) 
[) COMPUTE!'s Second Book of VIC. «2386167 | 
( COMPUTE!'s Third Book of VIC... 2386434.) 
( Mapping the VIC) 2386248 

Cj Group Vil Se 
[ COMPUTE!'s VIC Gane for Kids 2386353 |. 
(Creating Arcade Games on the VIC - RANEBEERN yy 


Oo COMPUTEI's Second Book of VIC Games ROH OA 
| ~ 2386574: eS 
O COMPUTE! First Book of WE Games 2386132] 


COMPUTE! Publications Inc. So 


A Capital Citias/ABC, Inc. Company 








64, 


Barry L. Camp 


The new commands that this utility adds to the 64 make edit- 
ing and programming much more enjoyable. “64+” alters the 
operating system itself to create a new working environment. 


“64+” is a full-scale enhancement 
to the 64’s operating system. It 
works by copying the entire con- 
tents of the BASIC and Kernal 
ROMs into the underlying RAM 
and then making modifications to 
add new features. 

64+ consists largely of new 
CHR$ and keyboard commands 
that perform useful functions. Oth- 
er capabilities include a more useful 
USR function, preprogrammed 
function keys, disk drive defaults, 
and a numeric keypad. 


Typing It In 
Since 64+ is a machine language 
program, you will need to type it in 
using ‘“MLX,’’ the machine lan- 
guage entry program found else- 
where in this issue. Be sure you are 
familiar with MLX before you begin 
| typing in 64+. When MLX asks for 
| starting and ending addresses, re- 
spond with the following: 
0801 
0C40 
Type in the data, and be sure to 
save a copy before leaving MLX. 
Although 64+ is written in 
machine language, it loads and 
_runs just like a BASIC program. To 
get started, load 64+ and type 
RUN. You will notice some changes 
immediately. The lowercase char- 
acter set is switched in and the 
screen colors change, These visual 
cues also appear every time you 
press RUN/STOP-RESTORE. This 
different visual appearance serves 


| Starting address: 
Ending address: 
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| as a reminder that that you are op- 


erating under 64+. Try out the new 
commands and keystrokes provided 
by 64+. The accompanying quick- 
reference table and keyboard map 
are all you need to begin 
experimenting. 

Most of the new commands 


| can be used in three ways. First, 
| you can use them in immediate 


mode by typing the proper combi- 
nation of keys (especially helpful 
when you are editing a BASIC pro- 
gram), Second, you can use the 
CHR$ function in a PRINT state- 
ment to print the corresponding 
character code for the command. 
For example, PRINT CHR$(7) will 
ring a bell in 64+. Finally, you can 
type the key combinations within 


| quotes in PRINT statements. In 


quote mode, the commands appear 
as reverse letters. The quick-refer- 
ence table has all the information 
you need to use the commands in 
any of the three ways mentioned. 


New Characters 

One of the most powerful features 
of 64+ is the addition of 15 new 
characters. These can be accessed 
by the CHR$ function or typed di- 
rectly from the keyboard. Machine 
language programmers can use 
Kernal routines to access these new 


| characters. 


Here is a description of the 
characters which may not be self- 
explanatory. To find the corre- 
sponding keystroke and the 





character that appears when you 
use the command within a string, 
refer to the quick-reference table 
and the keyboard map. 


Tab | 
This is a version of the comma deli- | 
meter used in PRINT statements. | 
PRINT “Hello”’,““‘there” and PRINT 
“Helloiithere” both have the same 
effect. Press the STOP key for this 
character. In immediate mode, the 
STOP key tabs the cursor. 


Line home 
This moves the cursor back to the 


| beginning of the current logical line. 


For example, when editing a BASIC 
line, hold CTRL and press the back- 
arrow key to place the cursor on the 
first digit of the line number. 


Partial screen clear 
Clears everything below the cur- 
rent cursor position. 


Partial line clear 

Clears from the cursor position to 
the end of the current logical line. 
This is especially powerful for edit- 
ing BASIC lines. Depending on 
how the cursor is positioned, it is 


| possible either to trim unwanted or 


unneeded statements off the end of 
a line (like REM or STOP state- 
ments), or to delete the entire line 
by erasing all but the line number 
(and then press RETURN). 


Delete 

This is similar to the normal delete 
except that instead of pulling part of 
a line back over the unwanted char- 
acters to the left, the cursor remains 


| stationary, and unwanted charac- 


ters are pulled into the cursor from 
the right. Use the CTRL or Commo- | 
dore key in conjunction with the 








INST/DEL key for this ‘‘black 
| hole” delete, 


Repeating-key control 

If you want all keys to repeat, use 
CHR$(22). If you don’t want any to 
| repeat, use CHR$(23). The default 
is CHR$(24), which corresponds to 
the setting of a normal 64—only 
the cursor keys. 


Set color RAM — 
This sets every location on the 
screen to the current cursor color. 


Escape 

This may prove to be the most use- 
ful of the new characters. It cancels 
insert, reverse, and quote modes, It 
also resets the default key-repeat 


values and resets the SID chip reg- | 


isters to their default values. 


Additional function-key characters 
Normally there are eight function 
keys: f1, £3, f5, and f7 are unshifted, 
while f2, f4, £6, and £8 are obtained 


in conjunction with the the SHIFT | 
| key. 64+ adds four more function | 


keys (f9-f12), which are entered by 
_ pressing the Commodore key in 
conjunction with the function keys. 


Other Features 

In addition to the new characters, 
| these features are also part of 64+: 
« Freeze. Whenever the SHIFT- 
LOCK key is engaged, the screen 
stops scrolling, effectively freezing 
it. This is handy for examining list- 
ings or anything else that is too 
large to fit on one screen. To contin- 
ue normal scrolling, release the key. 


¢ Four preprogrammed function 
keys. By holding down CTRL and 
pressing one of the function keys, the 
corresponding one of the following 
four BASIC keywords is automatical- 
ly printed to the screen: DATA (f1), 
LIST (f3), RUN (f5), SYS (£7). 


e Disk drive defaults. Device 8 is | 


now the default device for LOAD, 
SAVE, and VERIFY. It is no longer 
| necessary to add ,8 to the command 
for disk loads and saves. (However, 
it is now necessary to add ,1 to the 
SAVE, LOAD, or VERIFY com- 
mand when using tape.) Note also 
that SHIFT-RUN/STOP has also 
been altered to facilitate the new 
device change. That key combina- 
tion will now load and run the first 
program on the disk. 

* End-of-line warning system. 
When you are near the end of an 
80-character logical line, 64+ noti- 


- Keyboard Map 





Quick Reference Table 


Character 
Code 


| Description 


Tab 
Line Home 


Keyboard Access 


RUN/STOP 
CTRL-1 


Appears As 


reverse c 
reverse f 


or Commodore-1 


Bell (Tone) 
Partial Screen Clear 


Partial Line Clear 


CTRL-G 
CTRL-CLR/HOME 

or Commodore-CLR/HOME 
CTRL-RETURN 


reverse 2 
reverse k 


reverse p 


or Commodore-RETURN 


Delete 


CTRL-INST/DEL 


none 


or Commodore-INST/DEL 


All Repeat 
No Repeat 
Default Repeat 
Set Color RAM 


CTRL- + 
CTRL-— 
CTRL-£ 
CTRL-Z 


reverse V 
reverse Ww 
reverse x 
reverse z 


or Commodore-0 


Escape 


SHIFT-=, CTRL-=, 


none 


or Commodore-= 


f9 Commodore-fl 
f10 Commodore-f3 
fll Commodore-f5 
| f12 Commodore-f7 


fies you with a tone. This is espe- 
cially useful when entering large 
amounts of data while looking 
away from the screen. 


* Audible error messages. A bell- 


| like tone sounds whenever an error 


occurs in a BASIC program. This is 
intended for those times when you 
are unable to see error messages 
(when programming with a graph- 
ics screen, for example). 

* Numeric keypads for quick data 
entry. The keyboard map shows a 


special keyboard configuration, ac- | 
cessible by holding down the Com- | 


modore key and pressing CTRL. 
Notice that a # appears under the 
cursor, This is to let you know that 
the keyboard is in numeric mode 
(which affects unshifted keys only). 
Now you have one-touch access to 
important control characters, 4 of 
the 16 available colors (for text), 
and the new numeric keypads. No- 
tice that the left group of numbers is 
in a different order than the right. 
This allows you a choice between 
the telephone- and calculator-style 
keypad formats. When you are 
ready to exit numeric mode, just 
press Commodore-CTRL again. 
This time a \ will appear, and the 
keyboard will be back to normal. 


| A Useful USR 


Machine language programmers 


will appreciate the new application | 


of the rarely used USR function. It 








TeVerse -_- 
reverse b 
reverse d 
reverse oO 


can now be used to find the values 
of system vectors. To use it, simply 
pass the address holding the low 
byte of the vector, For example, 


NMI = USR(65530):PRINT NMI 


would return the value 65091, the | 
starting address of the NMI routine. 


| Calculating available memory is also 


a breeze, with this short formula: 
MEM = USR(51)—USR(49) 


This example subtracts the values 
of the vectors that point to the top 
and bottom of available memory. 


Memory Conflicts 
Be careful when writing programs 
that use POKE statements, because 
BASIC and the Kernal are now in 
RAM. Also, 64+ uses location 787 
($0313) for various flags, as well as 
locations 51617-52223 ($C9A1- 
SCBFF). Stay away from these areas | 
of memory to avoid a crash. One | 
commonly used utility that works | 
with no conflicts is the DOS Wedge, 
which resides in memory immedi- 
ately following the locations used 
by 64+. 

64+ will probably not work 
with your favorite word processor. 
Word processors are generally self- 


| contained machine language pro- 


grams that provide their own | 
special editing functions and other 
features, For instance, SpeedScript 
and 64+ will not work together. 


| See program listing on page 98. @ | 
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Printer Wedge 


James Chandler, Jr. 


If you have a 64 and a Commodore 1525, MPS-801, or MPS- 
803 printer, here's an easy way to create, save, and print out 
your own custom characters. With “Printer Wedge,” you can 
| have true descenders, foreign language character sets, and cus- 


tomized graphics. 


| The Commodore 1525, MPS-801, 
| and MPS-803 printers are inexpen- 
| sive and generally reliable printers. 
But the printed characters leave 
much to be desired—no descend- 
ers. If you own one of these print- 
ers, you know how difficult it is to 
discern the difference between a 
| lowercase and capital ‘‘P” or a low- 
ercase ““g” and the number ‘9,” 
This program, “‘Printer Wedge,”’ 
lets you define a new character 
set—including true descenders or 
foreign language characters. 

The program is written in 
BASIC, but it POKEs a machine lan- 
guage “wedge” into memory. You 
| don’t have to know machine lan- 
| guage to make it work, however. 
The wedge prints the user-defined 
characters in conjunction with many 
programs, including SpeedScript. 

Printer Wedge characters can 
be any width from one to ten pixels, 
and any number of characters can be 
created, from one replacement char- 
acter to an entire upper/lowercase 
font. Also, foreign language charac- 


ter sets can easily be defined (within | 


the limits of printer resolution). 
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The program also has another 
mode which allows substitute char- 
acter strings of up to 40 characters. 
For example, one could specify text 
replacements for LISTed graphics 
symbols (cursor controls, colors, 
etc.), allowing the printing of more 
readable program listings. 


Creating Custom Characters 

When you load and run Printer 
Wedge, you get a character creation 
screen. Characters are created on a 


| grid seven high by ten wide. Move 


around the grid using the cursor 
keys, and plot dots with f7. Delete 
dots with f8. When the character is 


| complete, assign the character with 


fl. The computer then prompts you 
for the key of the character. Press 
the key representing the character 
and the program appends a DATA 
statement to itself describing that 
character. That character will no 
longer be available to you—it will 
be replaced by the new character 
you've designed. It then loops back 
to the character creation screen. 
When you're through creating 


| the characters you wish to use, press 


' save each b 





| £2. The program asks for a starting 


address, then POKEs the wedge to 
the specified location. You are then 


| given the option of sending sample 


lines to the printer so you can in- 
spect the new characters. 

[f you wish to alter any of the 
characters you've created, run the 
program again and press f2 when 
you finish. Since the character set is 
stored as part of Printer Wedge, you 
can create many character sets and 
its own name, such as 
PWEDGE/ELITE or PWEDGE/ 
SPANISH. 

Create characters starting from 
the left column of the character cre- 
ation grid, When printing, the 
wedge inserts one blank column at 
the right of a user-defined charac- 
ter. This allows proportional spac- 
ing of characters. For replacement | 
characters to be in the same seven 
by five format of the 1525, 801, 803 
character set, do not allow two ad- 
jacent blank columns in the first 
five columns of the character cre- 
ation grid. In addition, do not leave 
column five blank. 

To specify characters that can- 
not meet the above requirements, | 
calculate the column values as in the | 
1525, 801, or 803 users’ manual. 
Append a DATA statement to Print- 
er Wedge using the following format: 
[line number 3000 + 10 * ASCII] DATA 

[ASCII value of character],[number of 


character columns],{colummn 1],[column 
2) joey ( last column] 





| You can find the ASCII value of a 
| character by typing (in immediate 
| mode): 


| PRINT ASC(“{character)”) 


The line 10000 DATA 0 tells 
Printer Wedge it has read and 
POKEd all characters into memory. 
A replacement character for the dou- 
ble quote (SHIFT-2) should normally 
be specified (line 3340), Otherwise, 
printing a double quote character 
causes a graphic nightmare. 

I've included three character 
sets as options for you to try. Any of 
these can be appended to Program 
1, Character Set 1 (Program 2) re- 
places the lowercase g, p, and q 
with less ambiguous characters. 
Character Set 2 (Program 3) pro- 
portionally spaces without de- 
scenders. Character Set 3 (Program 
4) squeezes characters into the top 
six rows, allowing one row for de- 
| scenders. Program 5 allows for con- 
| verting graphics symbols to text. 


Character Strings 
Press f3 to assign a string of charac- 
ters toa key. This can be useful ina 
couple of ways. You can make pro- 
gram listings more readable by re- 
placing the reverse-heart that 
means “‘clear the screen” with the 
easier to read string [CLR]. To do 
this, type in the string [CLR] and as- 
sign it to the SHIFT-CLR/HOME 
key (by pressing f3). After entering 
all replacement strings in this man- 
ner, save PWEDGE/LIST. Pro- 
grams can then be listed to disk or 
tape, then read back and printed 
with a short BASIC routine. To do 
this, first open a file to tape or disk, 
then enter CMD (file number):LIST. 
After the file is created, type 
PRINT# (file number):;CLOSE (file 
number). To read the file (and list it 
to the printer), open the file for in- 
put, open a line to the printer, use 
GET# to get characters, and 
PRINT# to send it to the printer. 
SpeedScript allows the use of 
the Commodore key subset of the 
keyboard (left graphics symbols on 
the keys). [Commodore-D] could 
represent ‘Dear Friends,” [Com- 
modore-Y] could represent “Yours 
Truly,’’ and so on. This would 
allow automation of the repetitive 
parts of letters or of any document 
form you use frequently. 
See program listings on page 123. @ 





One-Touch 
Function Keys 


Keith Ashcraft 


This utility programs the 64’s function keys for a variety of 
useful tasks. And best of all, it provides a menu of its functions 
on the top screen line. A disk drive is required. 


The Commodore 64's function keys 
are a highly useful feature. Because 
they're programmable, they can be 
tailored to the needs of any user. 
“One-Touch Function Keys” adds 
four functions—including a directo- 
ry listing—to your 64. And you 
don’t have to worry about forgetting 
which key does what; they’re al- 
ways listed at the top of the screen. 

Because the program is written 
entirely in machine language, it 
must be typed in using ‘““MLX,”’ the 
machine language entry program 
found elsewhere in this issue. Be 
sure to read and understand the in- 
structions for using MLX before you 
begin typing in the program, When 
you run MLX, you'll be asked to 
provide starting and ending ad- 
dresses for the data you'll be enter- 
ing. The correct values are: 


Co000 
C11F 


Starting address: 
Ending address; 


After you finish typing in the pro- | 


gram, be sure to save a copy before 
leaving MLX. To load One-Touch 
Function Keys, use a statement of 
the form LOAD “‘filename’’,8,1. 


| (Substitute ,1,1 for the ,8,1 if you’re 
/ using tape instead of disk.) Type 
| SYS 49152 to activate it. You should 


see the definition line on the top of 


the screen. 
Here’s a list of the functions 
that One-Touch Function Keys 


- adds to the 64: 


e f1—The Directory 
Press f1 at any time for a directo- 
ry listing. RUN/STOP halts the 
listing. 

e f3—List 
The BASIC program currently in 
memory is listed when f3 is 
pressed. 

e f5—Save 
Press f5 for SAVE to be printed on 
the screen. 

¢ f7—Load 
Press f7 for LOAD to be printed 
on the screen. 


When you use Load or Save (f5 
and f7), you must insert the file- 
name of the program and press RE- 
TURN. For example, if you wanted 
to load a file named GAME.OB]J, 
you would press f7 and then 
“GAME.OBJ",8,1. 


RUN /STOP-RESTORE dis- | 
ables the program, but typing SYS | 


49152 reactivates it. Try to avoid 


using One-Touch Function Keys | 


with other programs that use the 
RAM area at 49152. 
See program listing on page 100. @ 
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Paul Piciocchi 


This menu-based program makes modifying sequential files 
easy, with options for editing, inserting, deleting, resaving, and 
printing out sequential files. For the Commodore 64, Plus /4, 


}and 16. A disk drive is required. 


Sequential files can hold a wide va- 
| riety of information. When a game 
saves the all-time high score, 
chances are it puts the information 
in a sequential file. When you save 
an adventure game position to disk, 
the data probably goes into a se- 
quential file. Programs that include 
filenames and addresses often store 
the data in sequential files. 
Modifying a sequential file can 


often be a tedious chore. Some- | 
times you can load and run a word | 
processor to do the job. But the file | 


| might not conform to the word pro- 
cessor’s format (some use ASCII 
| characters stored in sequential files, 
others might use screen codes in 
program files). Or you might not 
| own a word processor. You're not 
| left with much of a choice if that’s 
the case: Either you'll have to re- 
type the contents of the whole file 
or you'll have to write a program 
that can read the file into memory 
for you to make modifications—not 
an easy task. This program, ‘’Se- 
quential File Editor,”’ provides a 
simple solution—it reads a sequen- 
tial file into memory and then offers 
a menu with several editing op- 
tions. It runs on the Commodore 
64, Plus/4, and 16. 
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Using The Editor 

After typing in the program, save a 
copy to disk. To use it, load it and 
type RUN. 

You're first asked for a filename 
and disk device number (which 
should be 8, unless you have multi- 
ple drives). Next you’re asked if 
what you typed is correct. If you re- 
ply Y, the program starts to read in 
the file (if that file is not on the disk, 
you'll be told). While the program 
reads the file, the contents are dis- 
played as individual lines, along 
with assigned line numbers. (A car- 
riage return in the sequential file de- 
termines the end of each line.) If you 
plan to do complex editing, you may 
want to write down the line num- 
bers you plan to modify. 

Once the file is read, you're 
given a simple menu. The com- 
mands include the following: 

1. List File. You’re asked if you 
wish to see the file with line num- 


bers (so you can find the line you | 


wish to edit) or without line num- 
bers (to see the final product), Press 
either W or O. While listing, you 
can pause the output by pressing 


the space bar or abort the output by | 


pressing A. Resume the listing by 
pressing the space bar again. 





Sequential File Editor 


2. Edit Line, and 3. Insert 
Line. If you select either of these, 
you're asked for a line number. If 
you choose to edit, you're shown 
the line as it is. Otherwise, the pro- 
gram will make space within the 
file to insert that line. Next you're 
asked to change or write the line, In 
either case, pressing RETURN 
keeps the line as it is. (When editing 
or inserting lines, you can enter up 
to 254 characters. The program will 
prevent you from going beyond 


| this limit. Control characters are not 


allowed as input, except for DEL— 
CHR$(20)—which deletes single 
characters, and CTRL-X, which 
erases an entire line.) The program 
works with sequential files as large 
as 3000 lines. On the Commodore 
16, however, the limit is 100 lines, 
due to limited memory. 


4, Delete Line. This allows you 
to remove a line from the file. After 
specifying the line number, you're 
shown the line and asked if you are | 
certain you wish to delete it. 


5. Rerun Program. If you fin- 
ish with a file and wish to edit an- 


| other, you can rerun Sequential File 


Editor. Make sure to use the next 
command (resave file) if you want 
the changes you've made to be 
written to disk. The rerun option 
starts over with the initial filename 


| prompt. 


6. Resave File After Editing. 
It’s important that you remember to 
do this. When you finish editing a 





file, you must resave the file to disk 
to make the changes permanent. 
Should you forget, the file will re- 
main as it was before editing. When 
prompted for a name to resave the 
file, you can type an asterisk (*) to 
resave with the original filename. 
This command doesn’t use the 
sometimes unreliable save-with- 
replace function; it actually 
scratches the old file before the new 
information is written out. 

7. Print File To Printer. If you 
wish to have a printout of the file, 
choose this option. You're asked for 
the number of lines per page (this 
| number is usually 66). The program 
will format the file into pages, and 
| leave five blank lines on the top and 
bottom of each sheet. If you do not 
want the file formatted into pages, 
enter 0 as the number of lines per 
page on your paper. 

8. Exit Program. Once you've 
| finished editing and have resaved 

the file to disk (option 6), you can 
exit the program. 


Word Of Warning 

Because strings are limited to a 
maximum length of 255 characters, 
this program may crash with an er- 
ror in line 190 when a file contains 
256 or more characters without a 
RETURN character (CHR$(13)). 
The following line will allow such 
files to be read into the program: 


205 IF LEN(AS(LN))=255 THEN PRINT 
A$;:GOTO 230 


Note that if you add this line | 


and subsequently read a file and 
write it back to disk, the new file 
may contain some additional 
CHR$(13) characters, 

See program listing on page 99. @ 
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64Key 


Daniel Bingamon 


This might be the last program you type in the traditional way. 
64Key allows you to print a BASIC instruction just by pressing 


one shifted key. 


—“64Key” is a Commodore 64 ver- 


sion of Thomas Henry’s ‘“VICKey,” 
originally published in the August 
1982 issue of COMPUTE!. It allows 
you to print a BASIC keyword just 
by pressing one shifted key. For ex- 
ample, pressing SHIFT-A prints 
ASC, SHIFT-B prints STEP, SHIFT- 
C gives CHR$, and so on. It makes 
typing in long programs faster and 
easier, 

To use 64Key, type in the pro- 
gram, SAVE it, and type RUN. If 
you have mistyped a DATA state- 
ment, the program will tell you so. 


The program POKEs 64Key into the | 


$CO00 block of free RAM. Type 
SYS 52557 to activate 64Key. You 
will get the READY message back 
as though nothing has happened. 
But try typing a SHIFTed letter. 
Presto! A keyword appears. 

Now instead of typing out a 


keyword, you can simply hit the | 


appropriate key as shown in the ta- 
ble. Of course, you can always type 
the keyword normally (you must if 
the keyword is not in the table). Be 
sure to type NEW before typing in 


| | your program. 


64Key checks location $D4 
(212) to see if the editor is in quote 
mode, If you hit a SHIFTed letter 
within quotes, you will get the nor- 
mal graphics character or capital 


letter instead of a keyword. Typing | 


SYS 52557 turns 64Key on or off. 
So, if you want to deactivate it, type 
SYS 52557 a second time. You can 
also deactivate it by pressing the 





RUN/STOP and RESTORE keys 
together. 64Key will remain in 
memory until you turn the com- 
puter off. , 

““64Key” uses the same area of | 
memory as the DOS Wedge pro- 
gram supplied with the 1541 demo 
disk. To use these two valuable util- 
ities together, change the following 
lines: 

20 FOR [=51789 TO 51967 

50 IF X<>23743 THEN PRINT “THERE 
IS AN ERROR IN YOUR DATA 
STATEMENTS":END 

60 PRINT’SYS 51789 TO 
ACTIVATE”:END 


Next, change the DATA element 
205 to 202 in the following lines: 
100, 120, 130, 140, 150, 190, 220, 
300, and 320, Finally, remove the ,0 
from the end of line 430 and delete | 
line 440. These changes relocate 
64Key to the area immediately 
above the Wedge, allowing the two 
to coexist in harmony and still leav- 
ing locations 49152-51788 free for 
other uses. 

BASIC Keywords 


A ASC N NEXT 
B STEP O OPEN 
C CHRS P POKE 
D DIM Q PEEK 
E END R RIGHTS 
F FOR S STRS$ 
G GET T TAB( 
H STOP U USR 

1 INPUT V VAL 

K GOSUB — X READ 
L LEFTS$ Y RESTORE 
M MID$ Z SYS 


See program listing on page 91, @ 
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No-SYS Loader 


Walter L. Smith, Jr. 


Now machine language programs can be as easy to handle as 
BASIC programs. With this 64 utility, running, loading, and 
saving most machine language programs is a snap. A disk 


drive is required. 


Machine language (ML) programs 
are more difficult to load, run, and 
copy than their BASIC counter- 
parts. ““No-SYS Loader’ narrows 
the gap between the two, allowing 
| most ML programs to be treated 
like BASIC programs. 


No-SYS Loader works by com- | 


bining the ML program with a short 
BASIC loader to produce a new 
program that can be loaded, saved, 
and run like a BASIC program. 
When the program is run, the load- 
er transfers the ML to its correct lo- 
cation, performs a NEW, and, if 
necessary, resets certain BASIC 
pointers. 


Typing It In 

No-SYS Loader is written in ma- 
chine language. It must be entered 
using the ““MLX"” machine lan- 
guage entry program found else- 
where in this issue. When you run 
MLX, you'll be asked for the start- 
ing and ending addresses of the 
data you'll be entering. For No-SYS 
Loader, respond with the following 
values: 


Starting address: 
Ending address: 


0801 
DABS 
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After entering the data, be sure 
to save a copy of the program. 


To use No-SYS Loader, first, | 


load it and type RUN. The program 
asks for a filename. Make sure that 
a disk containing a copy of the tar- 
get program is in the drive; then en- 
ter the appropriate filename. No- 
SYS Loader finds the file on disk 
and tells you its load address. 
No-SYS Loader next asks for 


| the SYS address that starts the pro- 


gram. Either enter the address, or, 
since the load address and SYS ad- 


| dress are the same, you may simply 


press RETURN. 


No-SYS Loader now gives you | 


the opportunity to insert a remark 
into the program, Be sure that the re- 
mark you enter contains no more than 
19 characters. The program doesn't 
check the length of your input, and 
if you enter too many characters, 
the resulting program will crash 
when run, 

Now insert the disk on which 
you want the converted program 
saved. Enter the filename for the 
converted file. The converted pro- 
gram is saved to disk. 

To make sure that the program 





is working correctly, enter these 
lines: 


| LOAD" filename",8 


LIST 


You should see these lines on 
the screen: 


10 SYS2088 
20 REM your comment 


The SYS address will always 
be 2088. This is the address of the 
loader, not the ML program. Run 
the program to see if it works 
properly. 

Now that the program has 
been converted, it’s easy to make 
copies, For example, to make a 
copy, type 
LOAD“OLD NAME",8 
Then change disks (if desired) and 
type 
SAVE“NEW NAME”,8 


Notes 


A limitation of this program is that 


it will not convert programs that 
load below address 2304 ($0900). 
You'll find, however, that there are 
few ML programs that load below | 
this address. 

If the converted program is to 
be used as a utility for a BASIC pro- 
gram, the converted program must 
be loaded and run first, or else it 
will erase any BASIC program cur- 
rently in memory. 

See program listing on page 102. @ 


———= Programming Books = 
from COMPUTE! 


COMPUTE! Books offers a line of programming books for the intermediate to 
advanced Commodore 64 and 128 users. These reference books take you 
beyond BASIC and into machine language programming, helping you learn 
about memory maps, addresses, the new GEOS, and time-saving routines you 
can add to your own programs. 


COMPUTEI's 128 Programmer's Guide 

Editors of COMPUTE! 

ISBN 0-87455-031-9 444 pages 
A complete guide to the Commodore 128, this book explores BASIC 7.0, shows 
you how to create graphics and sounds, explains how to program peripherals, | COMPUTE!Ms 
and introduces you to machine language programming. | 
$17.95 | 


‘i 


Mapping the Commodore 128 
Ottis R. Cowper 


ISBN 0-87455-060-2 704 pages , erseveneettt Phepvee 
The comprehensive memory map and programmer's guide that provides a UMA Vitrais UT et ANA TRNT. c pe 1 
detailed explanation of the inner workings of the Commodore 128 including PAUIVNHVUCA EGRLSHHAAG 2TH RELL MMA i P ogrammer s 


memory management, BASIC 7.0, |/O chip register, the operating system, 
systern RAM, and more. 


$19.95 

Machine Language Routines for the Commodore 128 

and 64 

Todd Heimarck and Patrick Parrish 

ISBN 0-87455-085-8 §92 pages 


This collection of machine language routines Is a must for every Commodore 
128 and 64 machine language programmer. Scores of these routines can sim- 
ply be inserted Into your own programs. Included Is the assembly language 
code with easy-to-understand documentation and instructions. There is a 
companion disk available for $12.95 that includes all the programs in the book 
(858BDSk), 

$18.95 
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Programming the Commodore 64 Revised: 

The Definitive Guide 

sae srasest 

This bestselling, encyclopedic reference guide which covers the Carian 
04 in its entirety has been updated to include information on the new Com- 
modore OAC and GEOS, from Berkeley Softworks. There is also 0 disk available 


dea yee which includes the programs in the book (507BDSK). 
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Mapping the Commodore 64 and 64C 

Sheldon Leemon 

ISBN 0-87455-082-3 324 pages 
An update of the bestselling memory map and programming guide that's a 
necessity for intermediate and advanced programmers. This definitive 
sourcebook has been expanded and now covers the new icon-based GEOS 
(Graphics Environment Operating System) with clear descriptions of how to 
make it work for you. For BASIC and machine language programmers of both 
the Commodore 64 and 64C. 

$16.95 
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These books are now available at your local book or computer store. 

You can also order directly from COMPUTE! by calling toll free 800-346-6767 (in NY call 212-887-8525) or 
by mailing your order to COMPUTE! Books, P.O. Box 5038, F.D.R. Statlon, New York, NY 10150. 
Customer Service hours are 10:00 am-12:30 pm and 1:30 pm-3:00 pm EST, Monday-Friday 
Please include $2.00 postage and handling per book or disk. NC residents add 5 percent sales tax, and NY residents add 
8.25 percent sales tax. Please allow 4-6 weeks for delivery, 
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COMPUTE! Publications Inc. COMPUTE! books are available outside the United States from 


A Capital Cities/ABC, inc, Company subsidiaries of McGraw-Hill International Book Company, 


64 AutoBoot Maker 


Rene Suarez 


Here’s a Commodore 64 boot-making program 
with a twist: It’s compatible with most com- 
mercial accelerators for the 1541 disk drive. 


Unlike most other computers, the Commodore 64 does 
not automatically boot (load and run) programs from 
| disk, After loading a program, you must type either a 
RUN or SYS command to start it up. However, you've 
probably used commercial software that automatically 
loads and runs when you enter a statement such as 
LOAD“ BOOT”,8,1. Wouldn’t it be nice to run your 
own programs this way? 

Such programs are said to autoboot because every- 
thing is automatic after you enter the LOAD command. 
In effect, they pull themselves up by their own boot- 
straps; hence the term. Since autoboots require less 
typing, they're ideal for SETS used programs or 

oe eee 


V4.0 ae 


POWERFUL NEW GCR NIBBLER 
FOR COMMODORE 64 and 128 (in 64 mode) 


e Automatically copies most disks in 2 minutes or less 
including variable density and rapid locked protection 


® 105 new parameters to make unprotected copies of 
recent disks. Send stamped envelope for list 


Copies up to 40 tracks using 1or2 1541 or 1571 
drives. Copies both sides on 1571 


Copies itself (for this reason, no refunds given ) 


SPECIAL — BUY A NIBBLER V4.0 AND GET 
YOUR CHOICE OF A FREE $14.95 PROGRAM 


$39.95 plus $4.00 shipping 


Disk Surgeon V2.0 -- new disk utility 


. Ultramail -- mail list and labels. 
Handy-Capper -- race handicapper . 


. McMurphy's Mansion -- text adventure ... 
Soluware -- solutions to 10 adventures... 


. $14.95 


both for 
$14.95 


both for 
$14.95 


( Above may be ordered separately for $14.95 plus $4.00 
shipping. Foreign orders add $2.00) 


Mastercard, Visa, Check or M.O., Calif. add 6.5% ($2.60) sales tax. 
Foreign orders /COD add $2.00. Payment must be in U.S. funds 


UPDATES - Return original Ultrabyte disk with $15.00 plus $4.00 
shipping. Foreign add $2.00. No free disk with update 


To order, write or call 24 hr. order line. For info. write. 


ULTRABYTE (818) 796 - 0576 
P. O. Box 789 LaCanada, CA 91011 USA 


DEALERS & DISTRIBUTORS WANTED 





programs intended for people who aren’t familiar with 
the computer. The only catch is that autoboots can be 
very tricky to write. And though there are programs 
that construct them for you, the resulting package may 
not be compatible with the popular accelerator pro- 
grams for the 1541 disk drive. 

“64 Autoboot Maker” gives you the best of both 
worlds—an autoboot that works with most accelerated 
drives and normal drives, too. (Unfortunately, it won't 
work with the ‘““TurboDisk” accelerator published in 
the July 1985 issue of the GAZETTE.) You can make an 
autoboot for any BASIC or machine language program, 
and even disable the RUN/STOP and RESTORE keys 
if you like, 


Preparing An Autoboot 

Type in 64 Autoboot Maker and save a copy, then run 
it. First it asks for the name of the target program (the 
one you want the autoboot to load and run). Since Auto- 


| boot Maker looks for the program on disk, insert the 


correct disk in the drive when you enter the filename, 
Next, enter a name for the autoboot. Of course, this 
name should be different from the original filename. 
For example, if the target program is named LASER, 
you could call the autoboot LASER/BOOT. 

At this point, you must enter the memory address 


| where the program begins. If the target program is 
| BASIC, press RETURN without entering a number 


(BASIC programs always start in the same place). If the 
target program is machine language, enter the memory 
address where it normally begins. The address may be 
entered in decimal or hexadecimal (a hex number must 
begin with the $ symbol). 

Finally, you have the option of making the auto- 
boot disable the RUN/STOP and RESTORE keys. 
(Warning: With these keys disabled, you may not be 
able to break out of the autobooted program without 


| turning off the computer.) Enter Y if you want them 
| disabled and N if you don’t. Once this is done, the disk 


drive spins for a short time and the status of the drive 
appears on the screen. 

To test the newly created autoboot package, sim- 
ply type LOAD “filename’’,8,1 and press RETURN. Re- 
place filename with the name of your autoboot, and 
don’t forget the ,1 after the 8. The target program auto- 
matically loads and runs. (If it doesn’t, one reason may — 
be that it loads into the same memory area as the auto- 
boot itself—locations $02A7-—0303.) 

Note that you must repeat the procedure to create 
the same autoboot file on another disk. 


See program listing on page 75. @ 


The Automatic Proofreader 





*hilip |. Nelson 


‘The Automatic Proofreader’’ helps 
‘ou type in program listings for the 
28, 64, Plus/4, and 16 and prevents 
iearly every kind of typing mistake. 
Type in the Proofreader exactly as 


isted. Since the program can't check it- | 


elf, type carefully to avoid mistakes. 
Jon't omit any lines, even if they con- 


ain unfamiliar commands, After finish-— 


ng, Save a copy or two on disk or tape 
yefore running it. This is important be- 
ause the Proofreader erases the BASIC 
sortion of itself when you run it, leav- 
ng only the machine language portion 
nm memory. 

Next, type RUN and press RE- 
TURN, After announcing which com- 
juter it’s running on, the Proofreader 
lisplays the message “‘Proofreader 
\ctive’’, Now you're ready to type ina 
3ASIC program. 

Every time you finish typing a line 


ind press RETURN, the Proofreader — 


lisplays a two-letter checksum in the 
ipper-left corner of the screen. Com- 
sare this result with the two-letter 
-hecksum printed to the left of the line 
n the program listing. If the letters 


natch, it’s almost certain the line was — 


yped correctly. [f the letters don't 
natch, check for your mistake and cor- 
ect the line. 

The Proofreader ignores spaces not 
enclosed in quotes, so you can omut or 
1dd spaces between keywords and still 
ee a matching checksum. However, 
ince spaces inside quotes are almost al- 
ways significant, the Proofreader pays 
ittention to them, For example, 10 
°-RINT”’ THIS IS BASIC” will generate 
1 different checksum than 10 
-RINT’THIS [SBA — SIC”. 

A common typing error is transpo- 
ition—typing two successive charac- 
ers in the wrong order, like PIRNT 
nstead of PRINT or 64378 instead of 
94738. The Proofreader is sensitive to 
he position of each character within the 


ine and thus catches transposition 


*rrors, | 

The Proofreader does not accept 
seyword abbreviations (for example, ? 
nstead of PRINT). If you prefer to use 


ibbreviations, you can still check the 


ine by LISTing it after typing it in, 
noving the cursor back to the line, and 


oressing RETURN. LISTing the line | 





substitutes the full keyword for the ab- 


breviation and allows the Proofreader 
to work properly. The same technique 
works for rechecking programs you've 
already typed in. 

If you're using the Proofreader on 
the Commodore 128, Plus/4, or 16, de 
not perform any GRAPHIC commands 
wile the Proofreader is active. When 
you perform a command like GRAPH- 
IC 1, the computer moves everything at 
the start of BASIC program space—in- 
cluding the Proofreader—to another 


memory area, causing the Proofreader 


to crash. The same thing happens if you 
run any program with a GRAPHIC 


| command while the Proofreader is in 


memory. 

Though the Proofreader doesn’t 
interfere with other BASIC operations, 
it’s a good idea to disable it before run- 
ning another program. However, the 
Proofreader is purposely difficult to dis- 


lodge: It's not affected by tape or disk 
operations, or by pressing RUN/ | 


STOP= RESTORE. The simplest way to 


disable it is to turn the computer off. | 


then on. A gentler method is to SYS to 
the computer's built-in reset routine 
(SYS 65341 for the 128, 64738 for the 


64, and 65526 for the Plus/4 and 16). | 


These reset routines erase any program 
in memory, so be sure to save the pro- 


gram you're typing in before entering, | 


the SYS command, 
_ Ifyou own a Commodore 64, you 


may already have wondered whether | 


the Proofreader works with other pro- 
gramming, utilities like ““MetaBASIC.” 


The answer is generally yes, if you're 


using a 64 and activate the Proofreader 
after installing the other utility. For ex- 


| ample, first load and activate Meta- 


BASIC, then load and run the 
Proofreader, 
When using the Proofreader with 


another utility, you should disable both 
programs before running a BASIC pro- 


gram. While the Proofreader seems un- 
affected by most utilities, there’s no 
way to promise that it will work with 
any and every combination of utilities 
you might want to use, The more utili- 
ties activated, the more fragile the sys- 
tem becomes. 


The New Automatic PLOMICCAHes 


12 VEC=PEEK (772) +25 Mies) 
-LO=4327liI=44 


“10 FOR J=0TO 
EF ADE, BYT sADR=ADR+ LL: CHR=CHK 


210 DATA 269,185,0,2, 


260 DATA 168,72,41 





290 PRINT “AUTOMATIC PROOFREADE 


R FOR ";:IP VEC#=42364 ‘THEN 
(SPACE] PRINT "C-64" 

30 IP VEC=50556 THEN PRINT "VI 
C=20"— 


40-[TF VEC=35158°THEN’ GRAPILIC VC 
LRPRINT “PLUS /4 6 16" 

580 IF) VEC=17165 THEN LO=45 fHT= 
46:GRAPHTIC CLR:PRINT"128" 

60 “SA=(PEEK(LO0)+256* PEEK (HI))+ 

| 6:ADR=SA 


166:READ BYT:POK 
+BYT:NEXT 

80 LF CHK<>20570 THEN PRINT "* 
ERROR* CHECK. TYPING IN. DATA 

STATEMENTS ":END 7 

90 FOR -J=) TO S!rREAD RF, UF,HF: 
RS=SA+RF:HB=INT(RS/'256):LB= 
RS-(256*HB) 

180 CHK=CHK+RF+LF+HF:POKE SA+L 
Pf, UBsPOKE SA+HF,HB:NEXT 

118 TF CHK <> 22054 THEN PRINT 
*FRROR* RELOAD PROGRAM AND 

(SPACE }CHECK PINAL 

Dia 

120 POKE SA+149,PEEK(772):PORKE 

SA+150,PEEK(773) 

130 1F VEC=17165 THEN POKE SA+ 
14, 22:POKE SA+15, 23 5POKESA+ 
29,224:POKRESA+¥139, 224 

140 PRINT CHRS(147);CHRS (17 )." 
PROOFREADER ACTIVE"’:SYS SA 

156° POKE Ul, PEEK(HIT)+1:POKE (Pp 
BEK(10)+256*PEEK(HI))-1, Q:N 
EW 

160 DATA 120,169,73,141,4,3,16 
9,3;,141,5,30" 

DATA 88,96,1765,20,133/167, 

165,21,133,168; 169 

180." DATA @,1741'/0,255,162;, 37,18 
1,199,757;227,3 

196° DATA -20216/248 (16951932, 
219,255,169,18,32 

208) DATA 10, 255, 160, 0,132,180 
(132//176;136,230,/180 


176 


1, 34,208,8,72 
220 DATA’ 165,176,73;255,133,17 
6,104,72,201,32,208 

DATA 7,165,176, 208,3,104,2 
08,226,104,166,180 


236 


240 
3,167,165,168, 105 

258 DATA 0,133,168,202,208,239 
7240,262,1605,167,69 


21173325210 1255 


270 DATA 104, 74,748,748, 74,168 ,1 


B85, 211,3,32, 216 
280) DATA, 255,162,31,189 
149,199, 202,16,248 
2928 DATA 169,246, 32,210,255,76 
.$6,137,65,66,67 
3609 DATA 68,69,70,71 
77,808,81,82,83,88 
314 DATA 13,2,7,167, 314,92152, 
Lilo,d1 715) (28,129,167 (146 
fla? | Ga 


22°73), 


ae ee: ie he 
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LINE i EN: 


240,46,20- 


DATA,.24,,165,1767,1217 0,213" 


, 15,168,185, | 
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How To Type In 





Each month, COMPUTE!’s Gazette 
publishes programs for the Com- 
modore 128, 64, Plus/4, and 16. 
Each program is clearly marked by 
title and version. Be sure to type in 
the correct version for your ma- 
chine. All 64 programs run on the 


128 in 64 mode. Be sure to read the | | 
| as words within braces; {DOWN} 


instructions in the corresponding 
article, This can save time and elim- 
inate any questions which might 
arise after you begin typing. 

We frequently publish two 
programs designed to make typing 
easier: [he Automatic Proofreader, 
and MLX, designed for entering 
machine language programs. 

When entering a BASIC pro- 
gram, be especially careful with 
DATA statements as they are ex- 
tremely sensitive to errors. A mis- 
typed number in a DATA statement 
can cause your machine to “‘lock 
up’ (you'll have no control over the 
computer). If this happens, the only 
recourse is to turn your computer 
off then on, erasing what was in 
memory. So be sure to save a pro- 
gram before you run it. If your com- 
puter crashes, you can always 
reload the program and look for the 
error. 


When You Read: Press: See: 





(CLR} “SHIFT || CLRHOME | fo) 

{HOME} ~CLRIHOME | 

rUP} suit | f crsr |] FY | 

{DOWN} ft cre | | ie 
om 

{LEFT} | SHIFT | |+—CRSR —*| 

{RIGHT} \— CRSR —| 

(RVS} [CTRL 97 

(OFF) cTRL ||) 0 

(BLK) EETRU || 

{WHT} ictRL | {2 

{RED} | CTRL || 3. | 

[CYN} FCTRL |) 
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COMPUTE!s Gazette Programs 


Special Characters 

Most of the programs listed in each 
issue contain special control charac- 
ters, To facilitate typing in any pro- 
grams from the GAZETTE, use the 


| following listing conventions. 


The most common type of con- 
trol characters in our listings appear 


means to press the cursor down 


key; {5 SPACES} means to press — 


the space bar five times. 

To indicate that a key should 
be shifted (hold down the SHIFT 
key while pressing another key), 


the character is underlined. For ex- | 
ample, A means hold down the > 


SHIFT key and press A, You may 


see strange characters on your. 


screen, but that’s to be expected. If 
you find a number followed by an 
underlined key enclosed in braces 
(for example, {8 A}), type the key 
as many times as indicated (in our 
example, enter eight SHIFTed A’s), 

If a key is enclosed in special 
brackets, Kk 3, hold down the 
Commodore key (at the lower left 
corner of the keyboard) and press 
the indicated character. 

Rarely, you'll see a single letter 
of the alphabet enclosed in braces. 


When You Read: Press: See: 


(PUR) [3 |] gf 
[GRN} [+ | 
(BLU 
(YEL} | CTRL os] 
[F a 
( F2 } [7] 
(3) = 
UM | [sur] ] 
CFS} [ss] {8 
( Fo } "| 
(77 Bl 
{ F8 | @ 


This can be entered on the Commo- 


| dore 64 by pressing the CTRL key 
| while typing the letter in braces. For 


example, {A} means to press 


 CTRL-A, 


The Quote Mode 


| Although you can move the cursor 


around the screen with the CRSR 
keys, often a programmer will want 
to move the cursor under program 


| control. This is seen in examples 
| such as {LEFT}, and {HOME} in 


the program listings. The only way 
the computer can tell the difference 
between direct and programmed 
cursor control is the quote mode. 

Once you press the quote key, 
you're in quote mode. This mode 
can be confusing if you mistype a 
character and cursor left to change 
it. You'll see a reverse video charac- 
ter (a graphics symbol for cursor 
left). In this case, you can use the 
DELete key to back up and edit the 
line, Type another quote and you're 
out of quote mode. If things really 
get confusing, you can exit quote 
mode simply by pressing RETURN. 
Then just cursor up to the mistyped 
line and fix it. 


When You Read: Press: 





For Commodore 64 Only 





gg ‘COMMODORE! | 1 | 3 
Kk 23 [commopore}} 2/ Fai 
GE CMY ENG. 
ae commopore|| 4) fry 
ks 3 commopore! | 5 | [ie 
ae ‘commopore| 6 fj] 
k7q (COMMODORE | | 7 | ie 

Re A ae 
ks COMMODORE | 8 a 


UTILITIES UNLIMITED, inc. 


12305 N.E. 152nd Street 
Brush Prairie, Washington 98606 


Orders taken 24 hrs. a day; 
seven Gays a week. 


lf you wish to place your order by phone. 
please call 206-254-6530. Add $3.00 
shipping & handling; $2.00 for COD on 
all orders. Visa, M/C accepted. 

Dealer Inquiries Invited. 


WORLD'S BIGGEST 
PROVIDER OF 


C64/128 
UTILITIES. 


Software Submissions Invited 
We are looking for HACKER STUFF: print utilities, 
parameters, telecommunications, and the unusual. 


We now have over 1,000 parameters instock! 





SUPER PARAMETERS 500 PAK 


THE FINAL CARTRIDGE III C-64 and C-128 


by RWS Ind 


= 


Ad copy 


pee teal a Brepemcs are oe arehes ellie dele Kea K KKK KKK KK Kk KKK Kk KKK KS THE #1 SELLING CARTRIDGE IN EUROPE! After reviewing all utilities of this type 
we are golng/ull steam! After getting several requests for parameters on many ! including: Icepick, Capture. and super snap shot. we determined that T | 
of the “oldies but goodies” WE DID JUST THAT! ANOTHER 1st: 500 13 PARAMETERS CONSTRUCTION SET . CARTRIDGE 1s just that: THE LAST CARTRIDGE THAT YOU WILL EVER NEED. 
DIFFERENT PARAMETERS all in one pack. And these parameters are not on 4 The company that has THE MOST PARAMETERS is about to + EXTENSIVE programming utilities for both beginner and the hardcore programmer 
any of our regular 100 paks. This FANTASTIC 5-DISK $ 49 95 oe do something UNBELIEVABLE. We are giving you more of our alike. The most impressive utility for MEMORY-TO-DISK BACKUP that we have ever 
SET Is a value of over 3100 for less than 1/2. de PETES secrets. Using this VERY EASY program, it will not only READ, + seen. We were able to copy almost every program we tried with just the PRESS OF THE 
SUPER PARAMETERS 100 PAKS: 1 thru 4 x 9 COMPARE and WRITE PARAMETERS FOR YOU: it will also + BUTTON. Now, you may have seen a comparison of FINAL CARTRIDGE to super snap 
”, . YOU GET 100 OF THE BEST PARAMETERS, ANYWHERE. Professionally CUSTOMIZE the disk with your name. It willimpressyouaswell 2% shot by a dealer. It is our opinion that they only printed the few items they felt were 
done, easy to use, reliable, fast and full of performance This package can *  asyourfriends. The “PARAMETER CONSTRUCTION SET’ is inits favor (NOT ACCURATELY) and failed to list all THE FAR SUPERIOR FEATURES 
remove all protection, Includes titles from * like nothing you've ever seen. In fact you can even READ = OF THE FINAL CARTRIDGE. Come on quys. let's be falr. To get a much better 
al malot saftvare pubistersfortheceyi26, | 19.0 Oe ver oratraction ceticurhec W Glin eae cee COSTCO TUE 7 AMIE KORE SIUd Gheok, hao ca neitbeathelabaeerireene 

| ; sept. Bf, pg. 75-80: “A conventional review doesn't do The Final Cartridge 
SUPER PARAMETERS 10 PAKS: 1 thru 40 x 4, MENU. DON'T WAIT for months for that one a Justice—fun at this price is a rarlty.” e 
These are the early releases for your convenience until we have enough for ae special parameter: WRITE IT! $3 4,9 5 % GAZ: July 87, pg. 44: “I can't begin to think of a cartridge which does so many useful 
a new 100 PAK : things.” 

S (a REMEMB KS, | gs. a3) 
$4.95@ * MBER FOLKS, YOU SAW IT HERE FIRST! * AHOY: Nov. 87. pg. 63: “Overall we were quile pleased” gies 

ALL PARAMETERS ARE TOP QUALITY—NOFILLERORJUNK  “%*¥X XK KK KKK KKK kK KKK kk kw F INFO: Aug. 87, pg. 33: “JA super hacker's cartridgell”  sO™ 


SIMILAR PRODUCTS MAY APPEAR ELSEWHERE LATER; JUST REMEMBER YOU SAW THEM HERE FIRST!! Tce ile Mae Ren $54.95 


(Another first!) THE 128 SUPERCHIP 

Thereis an empty socket inside your 128 just waiting for our SUPER CHIP to give you32k worth 
of great BUILT-IN UTILITIES, all at just the TOUCH OF A FINGER. You get built-in features: 
FILE COPIER, NIBBLER, TRACK & SECTOR EDITOR, SCREEN DUMP, and even 2300/1200 


SUPER SPECIALS—PRICED TO MOVE 


THE “ORIGINAL” PARAMETERS CROSS REFERENCE ..$19.95 
over 4,000 parameters listed complete with sources 


SUPER NIBBLERS COMBO! x 
For those who need a really super nibbler copler, for those hard to 
backup programs, we give you the x ULTIMATE COPY PROGRAM* 
and it works well with both C64 or C128. This package includes both 


a Super Fast File copier } baud TERMINAL PROGRAM that's 1650, 1670 and Hayes compatible. Best of all, it doesn'tuse paseo VOR UIE AUG OINE DD westce tt Sih Geeta 
and 100 parameters. ONLY $24.95 up any memory. To use, simply touch a function key, and it responds to your command. Salesian Bites SC thea Bead epi eee eh en 719.95 
ALSO INCLUDES 100 parameters— FREE! 64 MODEM prq.: w/wardames auto dialer ........ mre 4 14.95 

Allthis for $29.95 N-CODER & D-CODER: together for only ......,.......$54.95 

GRAPHIC LABEL MAKER: the original ................912.95 

SUPER PARAMETERS—GEOS PAK ADULT GAME & GRAPHICS DATA DISKS RHR ees "49.95 
This #1 seller will standardize your GEOS series utilities to work with GAME: A very unusual game to be played by a very OPEN MINDED adult. It includes a CASINO HEAVY DUTY REPAIRABLE 64 POWER SUPPLIES ......... $39.95 


and HOUSE OF ILL REPUTE. Please, you MUST BE 18 to order EITHER ONE. 


anyone else's GEOS. Parameters are included for these: FONTPACK 
DATA * : This POPULAR disk works with PRINT SHOP and PRINT MASTER. 


TU DESKPITTITWaTTERE WORRSHOP GEODEKE Most expensive C64 repairs are due to a faulty power supply. 


Dont wail: replace yours now! 


GEOFILE. THE ORIGINAL STANDARDIZER for just $9.9 5 $ 24.95 ea. CLOSE-OUT OF KRACKER-JAX 64/128 RESET BOARDS... . $3.95 
DISK NOTCHERS: double disk capacity ................ $4.95 
SECURITY KEYS: lost your dongle?............. $3.95 


V-MAX, RAPID LOCK 
DIGITAL SOLUTIONS” 


es; LOCK PICK—THE BOOKS—for the C64 and C128 
Lock Pik 64/128 was put together by our crack team, asa tool for those who have a desire 
to see the INTERNAL WORKINGS of a parameter. The books give you STEP-BY-STEP 
INSTRUCTIONS on breaking protection for backup of 100 popular program titles. Uses 
HESMON and SUPEREDIT. Instructions are so clear and precise that anyone can use 
it. OUR BOOK TWO IS NOW AVAILABLE+ 

BOOK 1: Includes Hesmon and a disk with many utilities such as: RERNAL SAVE, 1/0 
SAVE, DISK LOG FILE and lots more, all with instructions on disk. A long-time favorite 
of many. 

BOOK 2: 100 NEW PARAMETERS. HNesmon on disk, and more utilities to include: A 
GENERAL OVERVIEW ON HOW TO MAKE PARAMETERS and a DISK SCANNER. 


$29.95 each OR BUY BOTH For onLY $49.95 





C-64 and C-128 BURST KOM CHIPS 
Lets your C-64 run in “BURST MODE” when using a 1571 or 1581 disk drive. Loads 100 blks In 6 sec. (1571) 
and 4 sec, (1581). Features: fast directory, SEQ. and REL, file access and built-in DOS WEDGE. Simple 
installation Kernal ROM U4 must be socketed. C-128 version has same features as above, Forusein64 mode. 


css $29.95 c-128 $35.95 
CALL or WRITE FOR FREE CATALOG. 
_AN IBM and ST VERSION IS ALSO AVAILABLE 










Ottis R. Cowper Technical Editor 


“MLX" is a labor-saving utility that 
allows almost fail-safe entry of 


machine language programs. Included 
are versions for the Commodore 64 
and 128. 


Type in and save some copies of which- | 


ever version of MLX is appropriate for 
“your computer (you'll want to use it to 
enter future ML programs from COM- 


PUTE!’s GAZETTE). Program 1 is for the 


Commodore 64, and Program 2 is for 
| the 128 (128 MLX can also be used to 
enter Commodore 64 ML programs for 


use in 64 mode). When you're ready to. 


enter an ML program, load and run- tor if the rightmost column of data is | 


MLX. It asks you for a starting address 
andan ending: address. These addresses 
‘appear in the article accompanying the 
MLX-format program listing you're 
typing. 

If you're unfamiliar with AGING 
Janguage, the addresses (and all other 
values you enter in MLX) may appear 


‘strange. Instead of the usual decimal | 
numbers you're accustomed to, these” 


numbers are in hexadecimal—a base 16 
“numbering system commonly used by 
ML programmers. Hexadecimal—hex 


for short—includes the numerals 0-9 
and the letters A-F, But don’t worry— } 


even if you know nothing about ML or 
hex, you should have no trouble “using 
MLX, 


After you enter the starting and 


7 ending addresses, you'll be offered the. 


| option of clearing the workspace. 
| Choose this option if you re starting to 
enter a new listing. If you're continuing 


a listing that’s partially typed from a- 


previous Piss Oy t choos¢ this 
joption,/ ! 


first option in the menu is ENTER 


DATA: If you're just starting to type in 
a program, pick this. Press the E key, 
‘and type the first number in the first, 


line of the program listing. If you've al- 
ready typed in part of a program, type 
‘the line number where you left off typ- 
“ing at the end of the previous session 


(be sure to load the partially completed 


“program: before you resume entry), In 


“any case, make sure the address you en-- 


ter corresponds to the address of a line 
in the listing you are entering. Other- 
wise, you'll be unable to enter the data 
correctly. If you pressed E by mistake, 


| you can return to the command menu | 
| by pressing RETURN alone when } — 
asked for the address. (You can get back. 
to the menu from most options by 
pressing RETURN with no other input.) 
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ae KNEHOOA menu will appear. The | 





Entering A Listing 
Once you're in Enter mode, MLX prints | [ 
| the address for each program line for | | 
)-you. You then type in all nine numbers 


on that line, beginning with the first 
two-digit number after the colon. (;). 


Each line represents eight data bytes 


and a checksum. Although an MLX- 


format listing appears similar to the 
| “hex dump’’ listings from a machine 
language monitor program, the extra | 
checksum number on the end allows | 
MLX to check your typing. (Commo-~ 


dore 128 users can enter the data from 
an MLX listing using the built-in moni- 


omitted, but we recommend against it. 


It's much easier to let MLX do the proof- | 


reading and error checking for you.) 


When you enter a’ line, MLX recal- 
culates the checksum from the eight 


bytes and the address and compares 
this value to the number from the ninth 


} column. If the values match, you'll hear 
a bell tone, the data’ will be added to the 
| workspace area, and the prompt for the 
| next line of data will appear. But it MLX 


detects a typing error, you'll hear a low 
buzz and see an error message. The line 


/ will then be redisplayed for editing: 


Invalid Characters Banned 
Only a few keys are active while you're | 
entering data, so you may have to un- | 
learn some habits. You do not type | 


spaces between the columns; MLX 


automatically inserts these for you. You 


do not press RETURN after typing the 
last number tn a line; MLX automatical- 


ly enters and checks the: line after you: | 
| a very slim chance that you could gar-- 


type the last digit. 


Only the BULA 0-9 Mee the let- 
ters A-F can be. typed in. If you press 


any other key (with some exceptions 


noted below), you'll hear a warning | 


buzz, To simplify typing, 128 MLX re- 
defines the function keys and + and — 
keys on the numeric keypad so that you 
can enter data one-handed, (The 64 
version incorporates the keypad modi- 


fication from the March 1986 “Bug- 
Swatter”’ column, lines 485- =487,) In 
either case, the keypad is. active: only 
while entering data. Addresses must be’ 


entered with the normal letter and 


number keys. The figures above show: 
the keypad SOUS for: oy 
version. ! 


/-MLX checks for transposed Katee. 


‘ters, If you're supposed to type in’ A0Q- 
and instead enter 0A, MLX will catch: 
your mistake, There is one error that , 








Machine Lan; uage Entry Program 
_For Commodore 64 and 128 





64 MLX Keypad 


can slip past MLX: Because of the 

checksum formula used, MLX won't: 
notice if you accidentally type FP in. 
place of 00, and vice versa. And there's | 


ble a line and still end up with a combi- 


nation of characters that adds up to the | 


proper checksum. However, these mis-— 
takes should not occur if you take rea- | 
sonable care while entering data. 


Editing Features | 
To correct typing mistakes before fin-~ 
ishing a line, use the INST/DEL key to. 


delete the character to the left of the 


cursor, (The cursor-left key also de- | 


letes,) If you mess up a line really badly, 


press CLR/HOME to start the line over. - 
The RETURN key is also active, but’ 


only before any data is typed oma line. 


Pressing RETURN at this point returns 
you to the command menu. After you | 


type a character of data, MLX disables | 


RETURN until the cursor returns to’ the’ 
start of a line. Remember, you can press: 
CLR/ HOME: to. quickly get to a line’, 


number prompt. 


| More editing features are available 
| when’ correcting lines in which MLX | 
| has detected an error, To make correc- 

“tions in a line that MLX has redisplayed 
| for editing, compare the line on the 


“screen with the one printed in the list- 
‘ing, then move the cursor to the mis- 
take and type the correct key. The 
“cursor left and right keys provide the 


“normal cursor controls, (The INST/ 
“DEL. key now works as an alternative 


| cursor-left key.) You cannot move left 
beyond: the first character in the line. If 


“you try to move beyond the rightmost. 


“character, you'll reenter the line. Dur- 


‘ing editing, RETURN is active; pressing 
| it tells MLX to recheck the line. You can. 
“press: the CLR/HOME. key to clear the 


| entire line if you want to start from 
| “scratch, ‘or if you want to get to a line 


| “number prompt to use RETURN to gel | 


| back to Bp menu. 


a 
(i i F il 
q of 


| ‘Display Data 


‘for a starting address. Be sure that the 
‘starting: address you give corresponds 


“to. a liné number in the listing. Other- | 
| wise, the” checksum display will be | 


/meaningless. MLX. displays program 
Mines until it reaches the’ end of the pro- 
“gram, at which point the menu is redis- 
“played. You can pause the display by 


pressing the space bar. (MLX finishes 


y printing, the current Jine before halting.) 
“Press: space again to restart the display. 


| To. break out of the display and get back » 
“to: the menu before the ending address _ 


As: reached, bi RETURN 


Other MEH Options 


| i wo more menu Selections let you save | 
‘programs and load them back into the 


‘computer, These are SAVE FILE and 
“LOAD: FILE; their operation is quite 
‘straightforward. When you press S or L, 
| MLX asks. you for: the filename. You'll 
| then be asked to “press” either Dor T to 
Bele disk or tape. | 

You'll notice the disk dvive starting 
AY stopping several times during a 


load or save (save only for the 128 ver- 


“sion). Don’t. ‘panic; this is normal be- 
havior. MLX opens and reads from or 
owrites” to the file instead. of using the 
‘usual LOAD and SAVE commands 


| (128 MLX makes use of BLOAD). Disk 


Cusers should also note that the drive 
prefix Or is automatically. added to the 
‘filename (line: 750 in 64 ‘MLX), so this 


‘should: not: be. included when entering ' 





‘ Aker name. This also precludes the use of 


'@ for ‘Save-with- Replace, so remember 


“fo give each V version you save a different 


) The | Finished Product. 


When you've finished typing all the! (LISSA 4 
-data for an ML program and saved your | trey) 
work, you're ready to see the results. |} 
The instructions for loading and using } 
| the finished product vary from program 
to program. Some ML programs are de- | 
signed to be loaded and mm like BASIC | | 
“programs, so all. you need to type is’ 
LOAD “filenante’,8 for disk (DLOAD | 
“filename” on the 128) or LOAD “‘file- | 
name” for tape, and then RUN, Such | 





name. The: 128 version MaKe up for i 
this by giving you the option of scratch~ 


ing the existing file if you want to reuse 
a filename. — 

Remember that MLX saves the en- 
tire workspace area from the starting 
address to the ending address, so the 
save or load may take longer than you 


might expect if you've entered only a 


small amount of data from a long list- 


ing. When saving a partially completed 


listing, make sure to note the address 
where you stopped typing so you'll 
know where to resume entry when you 


reload, ( 
_ -MLX reports the standard disk or 


tape error messages if any problems are 


detected during the save or load. (Tape, 
users should bear in mind that Commo- | 


dore computers are never able to detect 


errors during a save to tape.) MLX also — 
has three special load error messages: 


INCORRECT STARTING ADDRESS, 


-| which means the file you're trying to | 
_ | load does not have the starting address 


The. second: menu YY DISPLAY | 7° specified when you ran MLX; 


| ‘DATA, “examines memory and shows 
| the contents in the same format as the | 
-program listing (including the check-~ 
“sum), When you press D, MLX asks you 


ends before the ending address you 


specified when you started MLX; and 
| TRUNCATED AT ENDING AD- 


DRESS, which means the file you're 


trying to load extends beyond the end- 
ing’ address you specified when you. 


started MLX. If you see one of these 
messages and feel certain that you've 
loaded the right file, exit and rerun 
MLX, being careful to enter the correct 


| starting and ending addresses. 7 
The 128 version also has a CATA-~ 
| LOG DISK option so you'can view the’ 


contents of the disk directory” before ss. 10. REM VENER OM AILS 


saving or loading. 


The QUIT menu option has the ob- 
vious effect—it stops MLX. and enters” 
BASIC. The RUN/STOP key is dis- 
abled, so the Q option lets you exit the” 
program without turning off the com-~ 


puter. (Of course, RUN/STOP-RE- 


-STORE also gets you out.) You'll be 
asked for verification; press Y to exit to 
BASIC, or any other key to return to the 
menu. After quitting, you can type | 
RUN again and reenter MLX without 
losing your data, as long as you don’t } 
use the clear NE oP HODY 


| matic Proofreader’ 


“SB 130 
CO 146 


“| Be 159 


“FR 170. 





programs will usually have a starting 


address of 0801 for the 64 or 1C01 for 


the 128. Other programs must be re- 
| loaded to specific addresses with a com- 
mand such as LOAD “filename”’,8,1 for 


disk (BLOAD “filename’’ on the 128) or 
LOAD “‘filename’’,1,1 for tape, then 
started with a SYS to a particular mem- 
ory address, On the Commodore 64, 
the most common starting address for 


such programs is 49152, which corre-- 


sponds to MLX address C000, In either 


} case, you should always refer to the ar- 


ticle which accompanies the ML listing 


| forinformation on loading and running ) 
she program. | 


| An Ounce Of Prevention 


By the time you finish typing in the data’ 
for a long ML. program, you may have — 
several hours invested in the project. | 
Don’t take chances—use our “Auto- 
to type the new | 
MLX, and then test your copy thorough-— 


| ly before first using it to enter any sig-- 


LOAD ENDED AT address, which | nificant amount of data, Make sure all 


means the file you're trying to load 


the menu options work as they should. 


Enter fragments of the program starting — 


at several different addresses, then use | 


the Display option to verify that the 


data has been entered correctly. And be | 


“sure to test the Save and Load options | 
several times to ensure that you can re- 


call your work from disk or tape. Don’t | 
let a simple typing error in the new 
MLX cost you several nights of hard 


| work. 


| Lig) 1: MLX For LOIS | 


LINES 8” 
36,950 MODIFIED, LINES 4 
85-487 ADDED 


“EK 180 POKE 56,50:CLR«DIM INS, 


I,J,A, By A$, BS,A(7) NS 
C448:C6516 :C7=7122—222 
4=254:25=255:26=256:27= 
MSS MATTE 
C3120 F FA=PEEK(45)+Z6*PEEK(46) 
/- s:BS=PEEK(55)+Z6*PEEK(56 - 
-) sH$="0123456789ABCDEF" 
RS=CHRS$ (13): LS="{LEFT}" 
:S$="_ ":DS=CHRS(28):Z2S=_ | 
CHRS(@):TS="(13° RIGHT)" | 
SD=54272:FOR 1=SD TO SD | 
+23:POKE I,0;:NEXT:POKE | 
/ {space }sp+24, 15;POKE 78 | 
8,52 f 
PRINT’ (CLR} "CHRS (142) CH” 
R$(8):POKE 53280,153 ai 
JES SI2BV, 15" | 
PRINT TS" (RED (RVS)” 
{2 SPACESJEB @} 
{2 SPACES)"SpC(28)" 
2 SPACES) (OFF) {BLU} ML , 
XX IT {RED} {RVS} | tif, 
Liye SPACES }" BEOME YA, 
{12 SPACES}{BLU}". ~ 
PRINT" {3 DOWN} 
PAE SPACES} COMPUTE! 'S. ie 
_ CHINE LANGUAGE EDITOR | 
{3 DOWN i 


DM 116 


Nips ddd, 2 A 
8. 186 PRINT" {BLK} SPARTING ADD. 
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| GF 


KR 


PG 


DR 


BD 


| JS 


Gs: 


196 


200 


216 


220 


238 


248 


250 
262 


2708 


280 


296 


308 
310 


220 


3438 


346 
356 


360 


378 


388 


‘(398 
» 400 


4168 
420 


430 
«440 


456 


460 


478 


480 


485 


RESSE44"; :GOSUB300:SA=A 
D:GOSUB164@:IF F THEN18 


4) 

PRINT"{BLK}{2 SPACES )EN 
DING ADDRESSE43"; :GOSUB 
300:BA=AD:GOSUB1030:IF 
(SPACE]F THEN190 
INPUT"{3 DOWN] {BLK]CLEA 
R WORKSPACE [Y/N]E43";A 
S:IF LEFTS(AS,1)<>"“Y"TH 
EN2206 


PRINT" {2 DOWN} {BLU}WORK 


ING...";:FORI=BS TO BS+ 
EA-SA+7:POKE I,@:NEXT:P 
RINT"DONE" 
PRINTTAB(10)"{2 DOWN} 
{BLK} {RVS} MLX COMMAND 
{SPACE}MENU [DOWN] E43": 
PRINT TS"{RVSJE{OFFINTE 
R DATA" 

PRINT TS"{RVS}D{OFF}ISP 
LAY DATA":PRINT TS" 
(RVS}L{OFFJOAD FILE" 


PRINT TS"{RVSIS{OFFI}AVE | 


PILE":PRINT TS"{RVS}Q 
(OFF}UIT{2 DOWN] {BLK]" 


GET AS$:IF AS=N$ THEN259 
A=0:FOR I=l TO 5:IF AS= 


MIDS("EDLSQ",I,1)THEN A 
2T:T=5 
NEXT:ON A GOTO426,616,6 
98,708, 288:GOSUB1866:GO 
TO256 
PRINT"{RVS}) QUIT " STNPU 


“T" {DOWN} E493ARE YOU SURE 


CY/N]";AS:1IF LEFTS(AS, 


1) <>"Y¥"THEN220 


POKE SD+24,0:END 
INS=NS :AD=@:INPUTINS:IF 


LEN( INS )<>4THENRETURN 


BS=INS$ :GOSUB320:AD=A: B35 


=MIDS(INS,3):GOSUB328:A | 


D=AD* 256+A: RETURN 
A=@:FOR J=1 TO 2:AS=MID 
§(BS,0,1):B=ASC(A$)-C4+ 
(A$>"@")*C7:A=A*C6+B 

IF B<@ OR B>15 THEN AD= 
@:A=-1:J=2 

NEXT: RETURN 


B=INT(A/C6):PRINT MIDS( 


HS,B+1,1);:sB=A-B*C6:PRI 
NT MIDS(HS$,B+1,1);:RETU 
RN 
A=INT(AD/Z6):GOSUB35@:A 
=AD-A*Z6 :GOSUB350:PRINT 
my" 

CK=INT(AD/Z6) :CK=AD-Z4* 
CK+Z5* (CK>2Z7) :GOTO396 
CK=CK*2Z2+25* (CK>Z7)+A 
CK=CK+25*(CK>Z5) :RETURN 
PRINT" {DOWN JSTARTING AT 
E49"; :GOSUB3O@0r:IF INS<> 


NS THEN GOSUB1LO3@:IF FP 
_[SPACE}THEN4#2 ) 


RETURN 
PRINT" ([RVS] ENTER DATA. 


{SPACE}";GOSUB406:IF IN 


S=NS$S THEN228 
OPEN3,2:PRINT 


POKEL98, @:GOSUB360:1F F | 


THEN’ PRINT INS :sPRINT" 


{up} {5 RIGHT)"; 
FOR I=0 TO 24 STEP 3:BS 
=S$S:FOR J=1 TO 2:1F F T ] 


HEN BS=MIDS(INS,I+J,1) 


PRINT" ({RVS}"BSLS;sIF I< | 


24THEN PRINT" {OFF]}"; 
GET AS:IF AS=NS THEN476 
IF (A$S>"/"ANDAS<":")OR(A 
S>"@"ANDAS <"G")THEN5S4@ 
A==-(AS="M")=-2*(AS=a",")- 
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38 (ASS".")-4*(ASE"/" <5 


466 


487 


490 


580 


510 
520 


938 


5940 


550 


566 


. 976 


580 


596 


600 
618 


620 


636 


640 
| 650 


660 


EQ 6786 


) 680 
CM 698 


788 


110 
R 720 


730 


740 


* (AS="" )-6* (AS="K" ) 
A=A-7* (AS="L")-8* (AS=": 
i )- Q* (AS="uU" )-1 a* (AS= wT 
UL ) es (AS="0" ) -)]?>* (AS=" 
p" 
A=A-13* (AS=S$)31F A THE 
N AS=MIDS("ABCD123E456P 
8",A,1)3:GOTO 540 
If AS=RS AND((I=6)AND(J 
=1)OR F)THEN PRINT BS;: 
J=2:NEXT:1=24:GOTOS58 
IF AS="{HOME}" THEN PRI 
NT BS:dJ=2:NEXT: 1=24:NEX 
T:F=0:GOTO440 
IF (AS="{RIGHT)")ANDF TH 
ENPRINT BSLS;:GOTO54@ 
IF AS<>LS AND AS<?>DS OR 
((I=@)AND(J=1))THEN GOS 
UB1L660:GOTO479 
AS=LS+SS+L$:PRINT BSLS; 
:0=2-J:IF J THEN PRINT 
{SPACE} L$; :I=I-3 
PRINT AS::NEXT J:PRINT 
{SPACE]}SS; 
NEXT I:PRINT:PRINT" {UP} 
{5 RIGHT)"; :INPUT#3,1INS$ 
:IF INS=NS THEN CLOSE3: 
GOTO220 
FOR I=1 TO 25 STEP3:BS= 
MIDS (IN$,1I):GOSUB320:IF 
I1<25 THEN GOSUB380:A(I 
/3)=A 
NEXT: IF A<>CK THEN GOSU 
B1860:PRINT" {BLK} [RVS} 
(SPACE}ERROR: REENTER L 
INE £4]3":F=1:GOT0440 
GOSUB1080:B=BS+AD-SA:FO 


R I=8 TO 7:POKE B+I, A(I 


) NEXT 
AD=AD+8:IF AD>EA THEN C 
LOSE3 :PRINT" (DOWN) {BLU} 
** FND OF ENTRY ** {BLK} 
{2 DOWN] ":GOTO780 
F290 :GOTO448 
PRINT" {CLR} {DOWN ) [RVS} 
{SPACE}DISPLAY DATA ":G 
OSUB400:IF INS=NS THEN2 
26 
PRINT" {DOWN} {BLU} PRESS: 
[RVSISPACE{OFF) TO PAU 
SE, {RVS}RETURN{OFF] To 
BREAKER 44 (DOWN }" 
GOSUB360 :B=BS+AD-SA:FOR 
I=BTO B+7:A=PEEK(I):GOS 
UB350:GOSUB380:PRINT S$ 


NEXT:PRINT"{RVS}"; :A=CK 
:GOSUB358:PRINT 
F=1:AD=AD+8:IF AD>EA TH 
ENPRINT" {DOWN} {BLU} ** E 


ND OF DATA **":GOT0220 — 


GET AS:IF AS=R$ THEN GO 
SUB1980:GOTO220 

IF AS=S5 THEN F=F+1:GOS 
UB168g | 
ONFGOTO630,666,630 
PRINT" { DOWN } {RVS} LOAD 


{SPACE }DATA ";OP=1:GOTO | 


710 
PRINT (DOWN) [RVS] SAVE 
(SPACE]FILE “:0P=0 


INS=NS : INPUT" {DOWN ) FILE 
NAMEK439";INS:IF INS=N$ 
{SPACE} THEN226 

pea te eae ha dy 
(RVS}T{OFF. 


D{OFFJISK: £43"; 


GET AS:IF AS="T"THEN PR 
INT { DOWN} " :GOTO88S 
LF AS<>"D"THEN730 


APE OR {RVS} > 





158 


| 7608 


778 


7868 


798 


8a0 


818 


. 828 


830 


848 
650 


860 


870 


B88 


B98 


900 


918 


920 


930 


940 


958 


960 


972 


PRINT"D{DOWN)":OPENL5,8 
,15, "I6:":B=EA-SA:INS=" 
O6:"+INS:IF OP THENS19 
OPEN 1,8,8,INS$+",P,W":G 
OSUBS60:IF A THEN228 | 
AH=INT(SA/256) sAL=SA-(A | 
H*256):PRINT#1,CHRS(AL) | 
; CHRS (AH); | 
FOR I=68 TO B:PRINT#1,CH 
RS(PEEK(BS+I));:IF ST T 
HEN8OD 
NEXT:CLOSE1] :CLOSE15:GOT 
0949 
GOSUB1O60:PRINT" {DOWN} 
[BLK}ERROR DURING SAVE: 
£49" :GOSUBB69 :GOTO2 20 
OPEN 1,8,8,INS+",P,R":G 
OSUB860:IF A THEN220 
GET#1,A$,85 sAD=ASC(AS+2 
$)+256*ASC(BS+ZS):I1F AD 
<>SA THEN F=]1:GOTO859 
FOR I=8 TO B:GET#1,AS:P 
OKE BS+I,ASC(AS+2Z$):IF( 
I<>B)AND ST THEN F=2:AD 
=I:I=B 
NEXT:IF ST<264 THEN F=3 | 
CLOSE] :CLOSE15:ON ABS(F 
>8)+1 GOTO969,97¢@ 
INPUT#15,A,AS:IF A THEN | 
CLOSE1:CLOSE15:GOSUB1B6 
60:PRINT"{RVSJERROR: "A | 
$ 
RETURN 
POKE] 8&3, PEEK( FA+2) :POKE 
187, PEEK(FA+3):POKEL86, 
PREK(PA+4) :IFOP=08THEN92 
SYS 63466:1F(PEEK(783)A 
ND1)THEN GOSUB1@60;PRIN 
T"{powN}{RVS} FILE NOT 
{SPACE]}FOUND ":GOTO69@ 
AD=PEEK (829 )+256*PEEK(8 
30):IF AD<>SA THEN Fel: 
GOTO97A | 
A=PEEK(831)+256*PEEK(83 | 
2)-1:P=F-2*(A<EA)=-3* (A? 
EA) :AD=A-AD:GOTO9390 
A=SA:B=EA+1:GOSUB1010:P 
OKE78@,3:SYS 63338 
A=BS:B=BS+(EA-SA)+1:GOS | 
UB1018:0N OP GOTO950:SY 
S 63591 
GOSUBLOSA;: :PRINT" (BLU) ** 
SAVE COMPLETED **":GOT 
0220 
POKE147,0:SYS 63562:1F 
{SPACE]ST>@ THENS7O 
GOSUB1@8@:PRINT" {BLU} ** 
LOAD COMPLETED **":GOT 


0220. 
GOSUB1@60:PRINT" {BLK} 


{RVSITERROR DURING LOAD: 


980 


{DOWN} £49":0N F GOSUB9S 
PRINT" INCORRECT STARTIN 


-G ADDRESS (";sGOSUB360: 


990 


igoe 


1018 


(1820 


1830 


, 1848 


PRINT") ":RETURN 

PRINT"LOAD ENDED AT ";: 

AD=SA+AD:GOSUB368:PRINT | 
DS : RETURN 


PRINT"TRUNCATED AT END | 


ING ADDRESS ":RETURN 
AH=INT(A/256) :AL=A-( AH 
ep tla aida 
94, 

AHCI (B/IS6) LRUSBA(KE 
*256) :POKE174,AL:POKE) 
75,AH:;RETURN — 

IF AD<SA OR AD>EA THEN 
1850 

IF(AD>511 AND AD<49960 


HC 


AR 


DX 


PF 


Ac 


Program 2: MLX For Commodore 
128 


AE 


| XP 
FB 


| KE 


JB 


Po 


GQ 


FE 


DK 


FH 
MF 


QOH 


)OR(AD> 49151 AND AD<53 


1056 


1868 


19768 


1888 


1690 


100 


116 


1208 


136 


140 


158 


166 


248)THEN GOSUB1@86:F=0 
: RETURN 
GOSUB1O68:PRINT"{RVS} 
{SPACE }INVALID ADDRESS 
{ DOWN) [BLK]":F=1:RETU 
RN 
POKE SD+5,31:POKE SD+6 
,208:POKE SD,248:POKE 
(SPACE ]SD+1,4:POKE SD+ 
4,33 


FOR 5S=1 TO 180 :NEXT:GO 


TO1698 
POKE SD+5,8:POKE SD+6, 
240:POKE SD,@:POKE SD+ 
1,90:POKE SD+4,17 

FOR S=1 TO 108:NEXT:PO 
KE SD+4,@0:POKE SD,@:PO 
KE SD+1,0:RETURN 


TRAP 960:POKE 
DIM NL$,A(7) 
22=2:24=254:25=255:26=2 
56:27=127:BS=256*PEEK(4 
627) :EA=65289 


4627,128: 


BES=CHRS(7):RTS=CHRS$(13 


):DLS=CHRS (20):SPS=CHRS 
(32):LFS=CHRS (157) 
DEF FNHB(A)=INT(A/256): 


DEF PNLB(A)=A-PNHB(A)*2 _ 
56:DEF FNAD(A)=PEEK(A)+ | 


256*PEEK(A+1) ~ 
KEY 1,"A":KEY 3,"B":KEY 
5,"C"rKEY 7,"D"rVOL 15 
:IF RGR(@)=5 THEN FAST 
PRINT" {CLR} "CHRS(142)7¢ 
HRS(8):COLOR @,15:COLOR 
4,15:COLOR 6,15 | 
PRINT TAB(12)"(RED} 
(RVS}{2 SPACES]R9 @3 
(2 SPACES) "RTS;TAB(12)" 
(RVS} {2 SPACES) [Orr] 
{BLU} 128 MLX [RED} 
{RVS) (2 SPACES} "RTS$;TAB 
(12)"{RVS]{13 SPACES} 


{BLU } il 


ah 
1868 
196 
200 


216 


226 


239° 


PRINT" {2 DOWN} 

{3 SPACES]COMPUTE!'S MA 

CHINE LANGUAGE EDITOR 
{2 DOWN)" 

PRINT" (BLK}STARTING ADD 

RESSE49";:GOSUB 260:IF 
{SPACE)AD THEN SA=AD:EL 

SE 189 

PRINT" {BLK}{2 SPACES}EN 

DING ADDRESSE43"; :GOSUB 
268:IF AD THEN EA=AD:E 

LSE 190 

PRINT" {DOWN} [BLK] CLEAR 
{SPACE}WORKSPACE [Y/N]? 
E49":GETKEY AS:IF AS<>" 

Y" THEN 220 

PRINT" {DOWN} {BLU }WORKIN 

G..."::BANK @:FOR A=BS 
{SPACE]}TO BS+(EA-SA)+7: 


POKE A,O:NEXT. A:PRINT"D 


ONE” 
PRINT TAB(19)"{DOWN) 
{BLK} {RVS} MLX COMMAND 


{SPACE}MENU £43 {DOWN}": 


PRINT TAB(13)"{RVS}E 
{OFF )JNTER DATA"RTS;TAB( 
13)"{RVS)D{OFF]}ISPLAY D 
ATA"RTS;:TAB(13)"{RVS)L 
{OFF)OAD FILE" 

PRINT TAB(13)"(RVS]S 





{OFF JAVE. FILE" RTS: ‘TAB(1 |. 


3) "{RVS}C{OFF}JATALOG DI 


240 


SK"RTS$;TAB(13)"{RVS}O 
{OFF} UIT {DOWN} {BLK}". 
GETKEY AS:A=INSTR("EDLS 


CQ",A$):0N A GOTO 346,5— 


58,640,658,930,940:GOSU 


8 950:GOTO 248 


2598 


268 


276 


280 


| 298 


366 


310 
d20 


338 
348 


TA 350 


368 


3708 


386 


390 


408 


418 
420 
430 
440 
450 
460 


478 


486 


490 


I08 


PRINT"STARTING, AT"+:GOS 


UB 260: IP(AD<>@)OR(AS=N _ 
L$)THEN RETURN:ELSE 258 


AS=NLS$:INPUT A$rIF LEN( 
A$)=4 THEN AD=DEC(A$) | 
IF AD=0 THEN BEGIN:IF A 
$<>NL$ THEN 308:ELSE RE 
TURN: BEND 
IF AD<SA OR AD>EA THEN 
{SPACE}300 | 
IF AD>511] AND ADS65280/ 
{SPACE } THEN PRINT BES; 
RETURN 


‘GOSUB 958:PRINT"{RVS} I 


NVALID ADDRESS {DOWN} — 
{BLK})":AD=8: RETURN 


CK=FNHB (AD) :CK=AD-Z4*CK ~ 


+25*(CK>27):GOTO 330 
CK=CK*Z24+25* (CK>27)+A 


CK=CK+2Z5*(CK>Z5):RETURN | 


PRINT BES;"{RVS] ENTER 


{SPACE}DATA ":GOSUB 258 | 


:IF AS=NL$ THEN 226 

BANK @:PRINT:F=6:0OPEN 3 
3 

r 


GOSUB 318:PRINT HEX$(AD_ | 
)+":"p3 IF P THEN PRINT 


{SPACE}LS:PRINT" {UP} 

[5 RIGHT}"; 

FOR I=0 TO 24 STEP 3:BS 
=SPS:FOR J=l TO 2:rIF F 
{SPACE}THEN BS=MIDS(LS, 
I+J,1) 

PRINT" {RVS}"BS+LFS;:1F 
{SPACE}1<24 THEN PRINT" 
{OFF}"; 

GETKEBY AS:IF (AS>"/" AN 

D AS<"s") OR(AS>"@" AND 
AS<"G") THEN 470 


IF AS="+" THEN AS="E":G | 


OTO 476 


IF AS$="=-"" THEN ASS"F":G 


OTO 478 


IF AS=RTS AND ((I=0) AN 


D (J=1) OR F) THEN PRIN 


T BS; :d=2:NEXT?:1=24:GOT 


Oo 480 

IF AS="{HOME}" THEN PRI 
NT BS:J=2:NEXT:1=24:NEX 
T:F=08:GOTO 369 

IF (AS="{RIGHT}") AND F 
THEN PRINT BS+LF$;:GOT 
0 470 

IF AS$<>LF$ AND AS$<>DLS 


{SPACE)OR ((1=6) AND (J | 
=1)) THEN GOSUB 950:GOT 


O 396 


AS=LPS+SPS+LFS:PRINT BS 


+LPS:3;J=2-J:IF J THEN P 
RINT LFS; :I=I-3 

PRINT AS; :NEXT J; PRINT. 
(SPACE]SPS; 


NEXT I:PRINT: PRINT LORY 


{5 RIGHT}"+:LS=" 
(27 SPACES]}" 


FOR I=] TO 25 STEP 4:GE 


T#3,A$,B$:I1F AS=SPS$ THE 
N T=25: tNEXT:CLOSE 3:GOT 
0 228 


AS=AS+B$:A=DEC(AS):MIDS | 
(L$,1,2)=AS:IF 1I<25 THE | 
N GOSUB 328:A(1/3)=A:GE 
T#3 AS: 


DX 528 


558 


‘SQ 680 





“510 NEXT I:IF A<>CK THEN’ G 3 


SsuB 950:PRINT:PRINT" 4 


538 


540 


GL, (RVS] ERROR: - REENTER LY, 
/ NE ":F=1:GOTO 366° 
PRINT BES:B=BS+AD-SA:FO. 


R I=8 TO ‘7:POKE B+, pENEZ, 


)ENEXT 4 


PeO2ADSADLA TF AD<=EA a 


HEN 368 ~ ji 


CLOSE 3:PRINT" “{DOWN) 
{BLU}]** END OF ENTRY - L0Y 


{BLK} {2 DOWN }":GOTO™ 658. | 


PRINT BES; "{CLR} {DOWN} | iy 


{RVS} DISPLAY DATA "3GO7 f 


SUB 256:1IF AS=NLS THEN "i 


560 


- TURN {OFF} TO. BREAKE43 
578 


588 


} 5908 


SPACE) 228 
BANK @:PRINT" {DOWN} — 
 {BLU})PRESS: 


Msevachee 
{OFF} TO PAUSE, (RVS)RE” 
{DOWN} " My 
PRINT HEXS(AD)-#"2"; 3606 | 
UB 316:B=BS+AD-SA 
FOR I=B TO B+7 sASPEEK (I~ 
):PRINT BIGRTS ESE, 
2) ,5PS+:GOSUB’ 3283NEXT ” 
{SPACE}T , 

PRINT" LRVS)" ; RIGHTS (HEX, 


~$(CK),2)_ 


690 


1 610 


620 


630 
649 


P 650 


670 


698 


788 
718 


C726 


736 


A 746 


GETKEY AS:IF- aSe"D 
N 85@:ELSE IF a0 7 | 
HEN. 


F=1]; SAD=AD+8/1F AD>EA TH 


“EN PRINT’ {BLU} ** END OF 


DATA **"sGOTO 226°") 
GET AS:IP AS=RTS THEN) cy 
RINT BES:GOTO 220 — Af 
IF AS=SP$ THEN BSPHLEPR 
INT BES: | 


‘ON F GOTO 5708, 610, 570. 


SEE BES" OMNI CRISI EL 
OAD’ DATA "s0P=1': GOTO: IY 
os Y 
PRINT aes" (pows (avs) cy 


AVE PILE ":0Ps0 
660 


P=6 :FS=NLS3 INPUT "BILENA 


MERA3";FS:IP ESSNLS: THE” 


N 228 

PRINT" (DOWN) [BLK) (RVS}T” 
{OPF}]APE OR URVSIDLOFE}: 
ISK: £49"; 

THE 


680 — 
PRINT™DISK{ DOWN) "31F. OP 
THEN 760° 
DOPEN#1,(FS+",P"), WiIk. 
{SPACE }DS THEN. AS=DS$<G” 
OTO 749 
BANK @:POKE ‘BS-2,FNLB(S | 
A):POKE BS-1, FNHB (SA): Y 
RINT "SAVING "SPS: PRINT 
FOR A=BS-2 TO BS+EA- SA” 
PRINT#1, CHR$(PEEK(A)) 3+" 
IF ST THEN AS="DISK WRI 
TE ERROR":GOTO 756 © — 
NEXT A:CLOSE 1:PRINT" 
{BLU} ** SAVE COMPLETED 
USPACE }WITHOUT ERRORS yy 
*"sGOTO 220 
IF DS=63 THEN ‘BEGIN: CLO- 
SE 1:INPUT"{BLK}REPLACE 


EXISTING FILE [Y/NJ€4]. 


"ZAS?IF AS="Y" THEN SCR | 


 ATCH(FS):PRINT:GOTO 798” 
' +ELSE PRINT" {BLK}" GOTO” 


758 


668:BEND 
CLOSE 1:GOSUB 958; PRINT” 
“{BLK}{RVS] ERROR- DURIN~ 
G SAVE: £43":PRINT ASESs 


- OTO 229 


769 


DOPEN#1, (ESE™, PY ):TF. Ds” 
THEN AS=DS$:F=4 :CLOSE © | 


{SPACE}1:GOTO 796/14 
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10. PRINT TAPE" AD=POINTER( 





§ A=BS:B=BS+(EA-SA)+1:c08 | 


Down Time Got 
You Down? 























































































“PX 17 “GET#, AS, BS CLOSE Lape Nis DABS YA BANK V:ASPEEK(AD):A- | UB 920:S8Y¥S DEC (“E9FB" ye 
77) BSC(AS)+256*ASC(BS) s1F - Ui MREEK(RDELY AH=PEEK(AD | IF ST>@ THEN 800 +ELSE: v 
o  NSPBCEYAD<> SA. THEN BEML SBN: NAS A 
Vo GOTO 798 XX 869 BANK 15 :SYs. DEC(“FF68") |} 928 POKE193, FNLB(A): POKE194_ 
KB 780 PRINT*LOADING ’ NePSsPRIN- V4 8,1+SYS DEC("FPBA"), 1, -, PNHB(A);POKE 174,FNLB( 
PB BLOAD(PS), BO, p(BS):AD | «2, @: SYS DEC("“PFBD”),A, AS B):POKE 175 /ENHB(B) + RET 
“5 =8A4+FNAD(174)=BS=1 LiPo?) LU, AH:SY¥S- DEC(" FE90"), piety, 7 URN 
vo S(ADSEA)=3* (AD>EA) y  -B:IF OP THEN 890 ) CP 938 CATALOG:PRINT™ {pown) 
RQ 790 IP F THEN 8@6:ELSE PRIN’ FG 870 PRINT:A=SA:8= EA+1:GOSUB - {BLU}** PRESS ANY KEY F 
LUN apie Stes LOAD COMPLETE | ~~ ——s- 9283SYS DEC("E919"),3: OR MENU **"3GETKEY BS3Se | 
CALMED WITHOUT: ERRORS Leb oe _ PRINT"SAVING "EPS. i OTO 228 | ti tpe 
LILI 226 ‘| AB 880° A=BS:B=BS+(EA-SA)+1:GOS 946 PRINT BES" [RVS} QUIT. 
_ER 868 GOSUB 950: PRINT® A BLKI, APSE UB. 929:SYS DEC(" EA18") =: --£49":;RTS;"ARE YOU SURE” | 
“ARV ERROR DURING LOAD “-- PRINT" [DOWN] {BLU} ** ‘TAP. | _ USPACE)LY/NJ?":GETKEY A] 
xs 843" 30N. F GOSUB 818, 7 ee a SAVE COMPLETED #A"2GO. | -- -$sIP AS<>"Y" THEN 2207E- 
28, 838,840:GOTO228 | m0 228" “) USE PRINT” {CLR} BANK’ My, | 
/Q3 810) PRINT" INCORRECT’ ‘STARTIN CP 899 SYS DEC("E99A") :PRINT#I | ~573END : fy 
-G ADDRESS: (BEX (AD) 1" WAAL Aft fo PEEK(2816)=5 THEN GOS | JE 950 SOUND 1,590, 10: RETURN f 
Oo YS RETURN UB 958:PRINT" {DOWN} - : F 960 IF ER=14 AND EL=268 THE , 
DP 820 PRINT"LOAD ENDED. AT | {BLK} {Rvs} PILE NOP FOU | N RESUME 300 
~)- EX$(AD):RETURN fy LYN es ":GOTO 226 | MK 976 IF ER=14 AND EL=580 THE 
“EB 830 PRINT "TRUNCATED. AY ENpr | Gq 990° PRINT"LOADING WSUS NG - N RESUME NEXT 
Wine: ADDRESS HEXS(BA)") |" sAD=ENAD (2817) :1F AD<> | — J 980 IP EBR=4 AND EL=780- THEN © 
Wy J ERETURN | | SA-THEN F=1:GOTO 800;EL | B43 AS$=DS$: RESUME B90 — 
“EP LE , DISK. ERROR YY Yi //SE’ ‘AD=FNAD (2819) - 1% Fed /, 990 IF ERS30 THEN’ RESUME3 EL | 
-ETURN (aly fe (ARDSER) = =3*(AD>BA) “SE PRINT ERR$ (ER) 7" ERR - 


OR IN YEAR Bb ee 


Get on line FAST with TRIAD COMPUTERS 


Most computers and disk drives are repaired and shipped within 72 hours! 


With 30 Day Repair With 
Warranty Repair 1-Year Warranty 
C-64 Computer $59.00 $89.00 
C-128 Computer 89,00 129.00 
1541 Drive Logic repair 69,00 99.00 
1571 Drive Logic repair 79.00 119.00 
1541 or 1571 Permanent Fix 69,00 99.00 
(Alignment and modification to stay in alignment) 
1702, 1802, 1902 CALL 
1541 alignment (only) dust 29.95 
Commodore Printers CALL 


C-64 Power Supply ONLY $29.95 
C-128 ROM UpGrade ONLY $55.00 
1571 ROM UpGrade ONLY 345.00 
AMIGA Repairs CALL 


For fast, expert service. . . Just call our toll free number today! 


1-800-624-6794 


1-800-521-6957 


FREE 


Permanent Fix 


A $69.00 value — includes align- 
ment and modification to stay in 
alignment. FREE with any 1541 or 
1571 one year warranty repair. 


= | I 





(For your convenience, have your equipment serial 
number and credit number ready. Checks and money 
orders also accepted). Add $7.50 for shipping — 
includes two-day air service anywhere in the Conti- 
nental USA. For APO-FPO and PO. Box addresses, 
add 315.00 for shipping (excluding air freight) 





Sen 


(3402-E W. Wendover Ave,, Greensboro, N.C. 27407 1-800-624-6794 or (919) 299-0391 
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This collection of flight guidebooks helps you get the 
most out of flight simulation software. Designed to be 
used with Flight Simulator, Flight Simulator Il, F-15 Strike 
Eagle, and other fighter-jet simulations, these books 
contain scores of scenarios that lead you across the 
U.S., around the world, into battle, and back to your 


favorite landing strips. 


Flying on Instruments with 

Flight Simulator 

Jonathan M. Stem 251 pages 
Here's fascinating hands-on instruction on fly- 
ing with instruments in Flight Simulator and 
Flight Simulator Il, How to fly In all kinds of 
weather—when the cloud ceiling Is low or the 
visibility is reduced. How to read and fly the in- 
strument approach charts that instrument- 
rated pilots use. How to take off, fly to 
another airport, and land—all while the clouds 
are a mere 200 feet off the ground. And how 
to navigate by using the impressive in- 
struments available in Flight Simulator and 
Flight Simulator II. More than 130 actual in- 
strument approach procedure charts. For all 
versions of Flight Simulator and Flight Simu- 
lator Il (Apple, Amiga, Atari, Atari ST, Com- 
modore, IBM PC and compatibles, Macintosh). 
Flight Simulator or Filght Simulator I! required. 
Perfect-bound edition: 

$9.95 ISBN 0-87455-091-2 

Split-wire-bound edition: 

$12.95 ISBN 0-87455-103-x 


| COMPUTE!'s Flight Simulator Adventures 
for the Macintosh, Amiga, and Atari ST 
David Florance, Tom R. Halfhill, and Philip |. 
Nelson 227 pages 
Fly through mists into mystery. This collection 
of 48 exciting, new, customized simulator 
scenarios for the Macintosh, Commodore 
Amiga, and Atari ST personal computers puts 
you in the pilot's seat. The new generation of 
Flight Simulator and Flight Simulator /l offers 
better graphics, easier-to-use controls, and 


more airports. With this book, you'll experience 
hair-raising rescue missions, dangerous night 
landings, sightseeing side trios, and one-of-a- 
kind flights of fancy. Make COMPUTE!'s Flight 
simulator Adventures your copilot and thrill to 
hours of flight. 

Flight Simulator or Flight Simulator |! required, 
$12.95 ISBN 0-87455-100-5 


Learning to Fly with Flight Simulator 
John Rafferty 

Leam to fly like a simulator expert in the 
imaginary world of Flight Simulator and Flight 
Simulator Il. You'll learn all the fun- 
damentals—from takeoffs to landings—in a 
single, detailed flight. Then you'll develop 
those flying skills by practicing standard rate 
tums, executing a flight plan, navigating from 
point A to point 8, and more. Learn how to 
make precision landings and use the more 
advanced instruments in your aircraft. To cap 
your training—and turn you into a professional 
simulator pilot—you'll learn how to read and 
use the actual FAA approach charts commer- 
clal pilots fly with. This complete flight-instruc- 
hon tutorial was written by a professional pilot. 
$12.95 ISBN 0-87455-115-3 


40 Great Flight Simulator Adventures 
Charles Gulick 152 pages 
This bestselling volume offers 40 exciting, cus- 
tomized flight simulator scenarios for Flight 
Simulator and Flight Simulator Il on the Apple 
li, BM, Commodore 64, and Atari personal 
computers. 

$10.95 ISBN 0-87455-022-x 
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40 More Great Flight Simulator 
Adventures 

Charles Gulick 236 pages 
Forty more challenging flight simulator scenar- 
los for Microsoft's Flight Simulator and 
SUBLOGIC’s Flight Simulator II. Explore the 
world from the air. For the Apple ll, |BM, Com- 
modore 64, and Atari personal computers. 
$12.95 ISBN 0-87455-043-2 


Jet Fighter School: Alr Combat 
Simulator Tactics and Maneuvers 
Richard G. Sheffield 177 pages 
Learn actual combat maneuvers and much 
more with this hands-on book for popular jet- 
combat simulators like F-15 Strike Eagle, Jet, 
and Ace. Information about jet fighter pilots 
and their aircraft, especially the F-15, provides 
an excellent introduction to the subject. 
There's even detailed data about the weap- 
ons available to jet-combat simulator pilots.” 
The heart of the book demonstrates, step-by- 
step, numerous offensive and defensive com- 
bat flight maneuvers, from the Hi Yo-Yo to the 
Defensive Spiral Drive. Tactical tips on F-45 
strike Eagle scenarios round out the book, F- 
15 Strike Eagle or other jet-combat flight simu- 
lator required, 

Perfect-bound edition: 

$9.95 ISBN 0-87455-092-0 

Split-wire-bound edition: 

$12.95 ISBN 0-87455-104-8 


Ask for COMPUTE! Books at your local book or computer store. 
To order direct, call toll free 800-346-6767 (in N.Y. call 212-887-8525) or write COMPUTE! Books, P.O, Box 


5038, F.D.R. Station, New York, NY 10019. 


Customer Service hours are 10:00 am-12:30 pm and 1:30 pm-3:00 om EST. 


Please include $2.00 shipping and handling in the U.S. or $5.00 airmail. NC residents add 5 percent sales tax and NY 
residents add 8.25 percent sales tax, Please allow 4-6 weeks for delivery. 


COMPUTE! Publications, Inc. 


4, Copal Cites (ABC, Ine. Company 


& 


COMPUTE! books are available outside the United States from subsidiaries of 
McGraw-Hill International Book Company, 






Lyco Computer 
Marketing & Consultants 






Since 1981 


Order processed within 24 hours. 


: COMMODORE 
128D — COMMODORE ae 64C 


HARDWARE 


Commodore 1541 C DISK DPV scsssrmsserrnse $164,95 
128D Plus 1571 DISK DriV@ ssssssssessessssseene $215.95 
ay 1581 Disk Drive wc... SLOWEST 

Indus GT C-64 Drive ..,.............. 8169.95 
Blue Chip 64C Drive ............... $199.95 
Ne 439 Q5 Blue Chip C 128 Drive... $195.99 
1BO2C MOmitOr .....ccccsesccessseeoere $189.95 
BOOZ MOMIOT .cecccscecssessersseseenssee $299.95 

1901 MOmiOF wesecsssccsssssesseeeeeeeeee SCALL 

B4 C COMPU viecsssssssssssseseees SLOW 


1280 ConputerDtve nee 849025 COMMODORE oac 
One 128D 1670 MOdGM oicccsccesscrncrerer cree SOALL 64C System 





to print. 





—_ C1951 MOUSE ....cssscsseressrsereeseers $32.95 
_-—= System Special Ui ee ovo: 95 e Commodore 64 C Computer 
| ATID FAM <ocecsessacesesrseesereyes 169, 
| ommodore 1280 ena toh nn tee 3459 Ee 


ME NP 10 Printer 


St Rica. TET: 












$649 99 Attention Educational 


Institutions: 
lf you are not currently 
using our educational 
service program, please 


= “1 call our representatives 
Panasonic cop detalla @ aL Lots Chir 
1091 Model Il if PERSONAL 


COMPUTER 
© 100% IBM 
PC/XT 


PC 
COMPATIBLE 
HARDWARE 


PC Sve DYIVG coccccccsssessorersrereserscceees @ 19 
MS DOS + Basic Soft ................ $59 
BCM 12G Gr. Monitor ..................... $89 

itj limi BOM 12A Am. MOmHOl ...ccccccrccccce. S89 
Quantities Limited BCM 14C Color AGB Monitor ....... $269 
BCC CG Color Card .................. $94.99 
BCPC PC/XT Comp ... cesses $559 
Avatex Graphics Card . soeee 9169 


Smarteam —— SL 


compatible! 





$179" 


) 3 | @ Blue Chip 
1200 Baud Modem MS ee Sea Personal Computer 
e Seagate 20 Meg 
Hard Drive 


“ ©) dy asia we, Ww = 
. +95 i | med is Bs .. $275.95" fina) 2! 2" | $749 


Hayes Compatible = “Drives include controller 
40 meg wio controller ..........- $425.95 


1-800-233-8760 
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i would personally 
like to thank all of our 
past customers for 

elping to make Lyco 
Computer one of the 
largest mail order 
companies and a 
leader in the industry. 
Also, | would like to 
extend my personal 
invitation to all computer 
enthusiasts who have 
not experienced the 
services that we provide. 
Please call our trained 


” sales staff at our toll free number to inquire about our 


diverse Broduc line and weekly specials. 


L " 
oe. ae roe ost a 7 ir r i lm i Py vy 


a . 5 
. met , i 
Week ori foremost LiL Pr Spe| is to keep a0DTeast 


of the changing market so that we can provide you with 


not only facto miresh merchandise but also the newest 
models offered by the manufacturers at the absolute best 
possible prices. And we offer the widest selection of 
GOMputer hardware, ScnWware and accessories. 


—-T. r j 3 | ra rit T 
. fie 2 OE ee ee | cut 


a particular i ni cant strocs enough that our "toll ‘reo 
ner | is not t just for orders. Many companies have a 
toll-free number for ordering, but if you just want to ask a 
question about a product, you have to make a toll call. Not 
at Lyco. Our trained sales staff is Knowledgeable about all 
the products we stock and is happy to answer any questions 
you may have. We will do our best to make sure that the 
product you select will fit your application. We also have 
saturday hours — one more reason to call us for all your 
COnPUIeY naeds, 


j n't 


nla 3 ¥CO. W - 
! 


W 


[ee hat We 


forget about Our ene present: distomer: 


: service representatives will find answers to your questions 


about the status of an 
order, warranties, 

product availability, or 
prices. 


on is. 4 yah tr >i 
+ jo 


merchandise. Chances 
are we have exeeily 
what you want r ight in 
our warehouse. And that 
means you'll get it fast. 
In fact, orders are 
normally shipped within 
24 hours. Free Lak 
on prepaid cash orders 
over $50, and there is 
no deposit required on 
C.O.D. orders. Air freight or UPS Blue/Red Label shipping is 
available, too. And all products carry the full manufacturers’ 
Warranties. 

| can't see why anyone would shop anywhere else. Selec- 
tion from our huge in-stock inventory, best price, service that 
can't be beat = we ‘ve a. gor it all here a Lyco wield Sali 


| { t 
ht hw Pah hh, he is 8 is.) 233 a 


Outside ew PA Wats (900 1-717-494-1030 
Hours: 9AM to 8PM, Mon. - Thurs. 
9AM to 6PM, Friday — 10AM to 6PM, Saturday 


For Customer Service, call 1-717-494-1670, 
9AM to 5PM, Mon. - Fri. 
Or write: Lyco Computer, Inc. 
P.O. Box 5088, Jersey Shore, PA 17740 


Risk-Free Policy: « full manufacturers’ warranties « no sales tax outside PA 

* prices show 4% cash discount; add 4% for credit cards « APO, FPO, 
international: add $5 plus 3% for priority « 4-week clearance on personal checks 
= we check for credit card theft + sorry, compatability not guaranteed + return 
authorization required * price/availability subject to change « prepaid orders 


‘ under $50 In Continental US, add $3.00 


Computer Area Light Center 


® Heavy-duty weighted base for 
extra stability 


® Built-in storage for disks, 
pens, and paper 

# Two-hinged desktop arm for 
optimal positioning 


Introdu ctory 
price: $29.95 


(includes delivery) 


OVS-10 54 ceases ert $3.99 
OVS-75 514 wc 916,95 
VS -40 SVE cecciiteneees $11.95 


Peak Peripherals RS232 
Modem adapter for C64/128 


*® Adapts sid DB25 Modem to 
your Commodore computer 


Only $19.95 
Metec Wr oc. $96.95 
Xetec Supergraphics ... $58.95 
PPT assess saccdcs tocoasaevalee os $45.95 
Cardco GWNiz .........0.0. $35.95 
Cardco Super G ......... $45.05 


Data Share-Messenger Modem 


300 Baud Auto Dial/Auto 
Answer Modem 


Only $29.95 


Contriver M-1 Mouse 
® Works with Geos 


« Complete with Graphic Utility 
Soltware 


Only $32.95 


Mouse Pad 


® provides cican, dust-lroe sur- 
face for your mouse 

® No-mar backing to protect 
your desk surface 


9x11 .... $10.95 


OQqoomnf OMe OME oH< O0O0N ODQpOoOnEe wn 


QsseP7 02RD rT rn 


== = = 


ACCESSORIES ————— 


1/4 

coil: 

aD .. . $6.99 

DD eee 39.99 

Ve: 

DD vecnacekstessue seed dedes $6.45 

90 » 96.95 

C; 

2) BS ie te $7.99 

pL Betis tenes ees A $16.95 

neric DSDD .. $6.99 

batim: 

DD ... a» $9.95 

DD -. $12.95 

5 

coll: 

DD: $12.50 

DD os aioe: $17.99 

‘batim 

DD ... $12.99 

DD ... $18.99 

C: 

DD . wwe 511.99 

DD cpetanis $14.99 

nec SSDD $13.95 

ner DSDD .... $15.95 
Free 

Disk Storage Case 

w/purchase of 5 boxes 


: a Sawa eee eee $9.95 
: 2 wardternharereteeee rete eeee $10.95 
$12.95 


7 
5 CO 


:1 + IBMWAP ......... 


Stick ..... .. $6.95 
ck Max ... $10.95 
‘Ss on $11.99 
HAY 0-0-0 . $19.99 
handle we $16.75 
WB SR Elia $13.95 
XJ-Apple/PC oo... $28.95 
WOT SOD oon cesccencereses $24.95 
0 IBMIAP ............... $29.95 
river Joystick Bd .. $34.95 


JUSTCOVeTS 
PROBA eee iveivessensseete OOOO 
11091 ..... $9.95 
ON FX2BB wciscee $14.95 
on FXG . $9.95 
on LXB6 » $9.95 
CPW PUD occoasteerangesoetiers $9.95 
FAO eriticccaseraveveaes, $9.95 
PeewED i otcvsiecaspbeivoss , $14.95 
BST 8! iiiscccsritere $9.95 
kosha SP series ....... $9.95 
(OM ibitensastathniece $14.95 
PE tats ss ebbbives clin 59.95 
De piitiVawicscbatbatid skis eae $9.95 
RS in one ca raeag $14.95 
aper 
|) sheet laser ........0000 $9.95 
0 sheet laser ......... $19.95 
| sheet ivory, 20)b ..... $9.95 

















150 sheet white, 20Ib ... 
1000 sh. Gr, bar 14” ... 
1000 mailing labels ....... 


. $9.95 
$29.95 
39.95 


OVS Surge 6-oullet ..... $24.95 
OVS Surge 6-outlet with 
WAVED reparqeatusetiarestsers $32.95 
OVS Surge 6-outlet with 
INDICATION ..2....ecceere ese $29.95 
OVS 6-oul. Pow. Stnp.. $14.95 


ili = 3 =l5e lala i 


Nortronies 514 Drive 
CUGBIGE hacedsscccrcscsesererrers $9.95 
Nortronics 54 Drive 


Cleaner Kit ............... $17.95 


Gent 257 AB sicisedecsss $49.95 
GentS6 AB sees. 549.95 
AS23532 ABC oo. cee POSS 


Color Ribbons 
Available 


SKC 7120 VHS 
Video Tape: 


Factory Fresh 
Special Pricing 
Call for Availability 


Quanturm Link ........ aon SSAVE 
Leading Edge .............. SSAVE 
Computer Cover-up 

AGUSICOVETS) veces. SOAVE 
Novation modems SSAVE 
Anchor modems .....:.... SSAVE 
Certron ... SSAVE 
Toshiba VCR's , SSAVE 
Teknika Monitors ....:.... SSAVE 
Panasonic Moniors ..... $SSAVE 
Dennison Diskettes. ..... SSAVE 


Great savings on Epyx, 
Cardco, Eastern House, High 
Tech Expressions, Time- 
works, Spinaker, 
Scarborough, Continental, 
and much more!! 


_ Save up to 50% off 
brand prices! Call for your 
make and model! 


, Carmen San Diego ate 


, "B6 Toam Disk ............. 


Accoms: 


Echolon ..........-...-.-. $25.95 
Leader Board .............. $22.95 
 —————— $19.95 
r Mach — 126 .. .. $26.95 
a $22.95 
Triplo Pack ..........0-. $11.95 
Wid. Cl. Leader Brd. ... $22.95 


Famous Courses #1... 


. $11.95 
Famous Courses #2 ... $11.95 
Up Paacsoe pial terse T(E 
Activision: 
AlONS ..... $19.95 
Champion, Basketball. $19.95 
Hackor ....... 90,99 
HACKOL 2 vo.cccccereccreeeee, $19.95 
LatyyTintth .ssocsrescersroserse . $19.95 
Music Studio ........0..:. $79.95 
Tass Times .. .. 516.95 
THAMIC ....0-0+-. . 511,95 
Leathor Goddesses: . S22.05 
—  Bhathontall .....ccccesesceeees $19.95 


$19.95 
$15.95 


Top Fuel Eliminator ..... 

Berkeley Softworks: 

ataeeceee DOO 
vases $20.95 


Broderbund: 
Bank St. Writer .. - 327.95 
$19.95 
Graphic Lib. |, Il, Il ..... $13.95 
Karatakal ......ccccccce 912.99 
Print SHOP occcccccccesececece SLOG 
Print Shop Compan. .... $22.95 
Print Shop Paper ......... $12.95 
Epy:: 

Cyoato A Calendar .. 
Movie Monster ............. 


$11.95 
Sub Battle ........ pee. 95 
Winter Garnes ............. $22.95 
California Games ........ $22.95 
Super Cycle ....ceceresese-. $11.95 
Graphics Scrapbook .... $11.95 


Str. Sports Basketball. $22.95 
Wid.'s Groat Baseball. $11.95 


Summer Games Il ....... $22.95 
Vorpol Utility Kit ........... $11.95 
World Games ............. $22.95 
Firebird: 

Colossus Chess IV ...... $19.95 
ENG essserccese - $18.95 
Golden Path . wee $22.95 
Guild of mileves te $22.95 


Talking Teacher .......... $22.95 
THACKOT vccscssrcssscssssesrces P22 PD 
StarQlidOr oo... $2.95 
Santry... .- $22.95 
Microleague: 

Microleag. Baseball ..... 
General Manager ........ 


$22.95 


$22.95 
$16.95 
$13.95 
$11.95 
Microleag. Wrestling ...... SNew 


Microprose: 

F-15 Strike Eagle ........ $19.95 
GUNSHID .osccccscercernveceee $19.95 
Kennedy Approach ...... $13.95 
Silent Service ........... $19.95 


SOND FQN ....ccesccssssnae, 
TOP GUIMET ..,.....:0::c000s 


Origin: 


|| reer 
UNTIL IV ose eeeeetneneneeees 


Moebius ... 


Saniabaardse 
Newsroom . 


Certificate oko. peri 
Clip Art Vol. #1 ........... 
Clip Art Vol, #2 «0.4... 


Clip Art Vol. #3 ... 


Graphics Expander ..... 
Strategic Simulations: 
Gemstone Healer ........ 
Gettysburg 0... ccccsceres 


Kamp{gruppe .............. 


Phantasia I w.cccccue 
Phantasie Il ...c......... 


- SOFTWARE. 


Ring of Zelfin ............... $22.95 
Road War 2000 ........... $22.95 
Shard of Spring .......... $22.95 
Wizards Crown ............ $22.95 
War in the 5. Pacific ... $33.95 
Wargame Constr .. $16.95 
Battlecruiser w+ $39.95 
Gemstone Warrior ......... $7.95 
Battle of Antetiem ........ $28.95 


Computer Ambush ...... 


Sublogic: 


Flight Simulator Il ........ 


Jot Simulator .........-.. $24.95 
Night Mission Pinball ... $18.95 
Scenery Disk 1-6 $12.95 
Timeworks: 

Partner C64... . $24.95 
Partner 128 wc. $39.95 
Swift Cale 128 . $29.95 
Wordwriter 128 ........... . $29.95 
Unison World 

Art Gallery 1 or 2 $14.95 
Print Master .. $17.95 
Access: 

Leader Board. ............ . $24.95 


10th Frame ......-.--.-.-.-. 


Tournament #1. .......... 
Activision: 


Champ. Basketball ...... 


GFL Football ..... 


Hacker .. $16.95 
Hacker 2 entire F! | 
Music Studio ...2.......00 $29.95 
Tais THOS \.......0-r0scs0rs8 $24.95 
Epyx: 

Apshai Trilogy . 313,95 
FIOQUO oso: wwe BEETS 
Winter Games ooo. $22.95 
World Games... , 22.95 
Firebird: 

Guild of Thieves -.-...2:. $26.95 
Pawn . - 926.95 
Starglider: ss. $26.95 
Microprose: 

Silom Service. $24.95 
Subloglc: 

Flight Simulator |l........ $32.95 
Jet Simulator. ccc... $32.95 
Scenery Disk... $17.95 











Unison World: 


Print Master: iiic.c.01....0 $24.95 
Art Gallery 1 0f 2... $18.95 
Access: 

Wid. Cl. Leader Board. $27.95 


! $27.95 
Activision: 

Pebbla Beach Golf ...... $22.95 
Champ. Basketball ...... $22.95 
MOONMISt ....-..0ccccsscsees $22.95 
Broderbund: 

Ancient Art of War ....... $25.95 
Print Shop -...0000..... $32.95 
Print Shop Compan. .... $31.95 
Graphic Lib. | or Il ...... $19.95 
Karateka .. ww. $19.95 
Toy Shop .... sseseces S220 
Bank St. Writer 4 + ieee $44.95 
Epyx: 

Apshal Trilogy seco. $11.95 
Create A Calendar ...... $15.95 
Movie Monster ............. $11.95 
FAIOQUG «.nceeccccieceesesses 916.95 
St. Sports Basketball ... $22.95 
Sub Battle Simulator ... $22.95 
Winter Games .. $22.05 
Word Games .. . $22.95 
Firebird 

Starglider ... . $25.05 
Guild of Thieves .. . $25.95 
Microleague: 

Microleag. Baseball ..... $22.95 
General Ee . $16.95 
Stat Disk ......ccceeeee $19.05 
‘66 Team Disk .. » $11.95 
Microprose: 

Conflict in Vietnam $22.95 
Crusade in Europe $22.95 
Decision in Desert ...... $22.95 
F-15 Strike Eagle ........ $22.95 
Silent Service .......0... $22.95 
Origin: 

Un! || eee $22.95 
Ulta IV. oc ccsetcecsrees $9095 
Ogre .. vereteeseess 916.95 
Siatsoke 6 Simulations: 

Road War 2000 ........... $22.95 
Kamptgruppe .. $33.95 
Shard of Spring « $22.95 
Battle of Antetiem ........ $33.95 
Computer Baseball ........ $7.95 
Gettysburg ... . $33.95 
Wizards Crown .. $22.95 
Chickamauga » $33.95 
Subloglc: 

Jet Simulator $31.49 
Scenery Japan $17.95 
Scenery San Fran. ...... $17.95 
Scenery #1-#6 . $64.95 
Flight Simulator . $34.95 
Timeworks: 

Swiftcalc ....... oo $39.95 
Wordwriter » 334,95 
Unison Word 

Art Gallery 2 wesee 914.95 
News Master csseecee PAOOS 
Print Master (+) ........ $29.95 
Fonts & Borders .......... $17.95 




























Price Guarantee New 1080i Model Il 

Since 1981, we have led the industry by | 
continuing to offer the lowest national 6 Now 150 cps 7 
prices i providing quality service. Many Draft Mode Panasonic 
companies have come and gone trying to : 
imitate our quality and service. If by some > Ee NLQ Mode | 1 080) Mode/ I] 
oversight we do not have the lowest prices @ Friction & Tractor — 
sivernees on the products you desire, Feed - 
then we would appreciate the opportunity | —_ 
to rectify this oversight. e 2-Year Warranty aw 


oommomnonnoncmnnncoe FI hQ® 


i eyalicel a= . Waifele(-sim | 
Thomson: | ship: 3 
BOMDETTUI nests SSN gg 6 THOMSON © * 


T2001 PC Card wesc SOD 


450 Amber TTL/15" ........ $129.95 BCM 12" Amber TTL............889 4120 Monitor 1200he Modem sc. veoees $99.95 
4120 CGA sietsssetssstsseceseees PISS BOM 14" Color ............. $259.95 -g 14" RGBIVideo 1 ee ions precuneianret woos S219 
4160 a aeede noneney estas NEC composite’analog 2400i PC Card PrTrririre Titty SCALL 
dae UtruScon 5456.95, NRMBEYTIO seicecrcsictocieries a A ec nconsnlh oc gg 


. ion S300 .......... $149.95 
Zenith: Save $90 over NEC Multisync bd Hts — cable OS Sreattrnodors 1200... $285.95 
ZVM V220 occ S89 With Thomson 4375 UltraScan Smartmodem 2400 ........ $425.95 
ZVM 1230 $89 $459.95 


Great Performance 
Great Price 





® 120 cps Draft SEIKOSHA 


@ EZ Front Panel 


Selecuon SP 180Ai 


@ NLQ Mode 





e 100 cps draft 

e 20 cps NLQ 

@ direct connect 
for Commodore 


$124% 








_ . AL : = : a” 
SEIKOSHA SUQIF EPSON IC 
SP 1B0Ai Siza 95 Sitphaad i: hat LX BOO $175 95 10801 Modal il Bretedhibera re rae $1 59.95 
| Pe rere ce . NP-10 Se 184,95 ; tt ee ‘ 1091) Modal Il ......... ‘aiaiebs $179.95 
BE TOON: swirernttcorire BEET BS! BOCA. ec ema Reve vn Sees 4009) $295 
SP 1000VC ESE SSCS CeO eee 51 45.95 Ax-1 Oc Winterlace faecal $1 65.95 FX286E DEBI A eB hall ta tA ek Be $429.95 1592 TEP PCs te fe bate rere tere ese e eH $379 
SP 1200VC Pereberetetetereneds $144.95 NL-10 2 ROE ER TN $199.95 Ex800 neapaeansinpsnsjelidnioileligkeliadel eer . $374.95 1555 5 EE oe eS REA ET z: $419 
SP TEODAL wu. cccccssssscssecssene $155.95 Oe | in re .. $289.95 EX1000 ....esseseeesesareessessses . $509.95 AE Ped D etsesspspssasaussqanesnaaass wi $259 
SP 1200AS RS232 ......... $155.95 | 3 IO scsccsimeniisiisnstin $369.95 345 | 
AM TOR) siccisisecctcciissssenans SNew! A ces its gb ieanicas daweccnpiachégsinaceo $399 
SL BOA . ori iitititit ett $295.95 NO 10 <i) $259.95 LQ1000 Prrrey $549.95 KXP 4450 Laser MnP e| SCALL 
MP1300AI ...ccscccssscsrsesess . $269.95 NDS oc cccccecccccecccscce., $375.05 LOQ2500 vicccccctscrertscsrsee SE48.95 1524 24 PIM osscoccseccccccses,.. $549.95 
MPS5a004) SPORES PET ET EPR ET ETRE $375.95 NA-15 $409 95 GQ3500 PTC P ETP Pe Pe Pe Pee Pete Pees SLOW 
PreTe TIC eLerei rie . Sev ana eh alee 2 LO 0 SPePR ERG RG SPEER RR PoE PEPE EE 99.95 
illeaarhaay $870-95 B15 24 PAM veenennrv- $609.05 torre a SILVER REED 
SP Serres Ribbon Shee eee $7.95 L 1050 PROTESTED SEL PASE TEPER ESS 79.95 
SK3000 Ai .. $349 NB24-10 24 PIN ....sveccve0n $409.95 BAP BBP vccvsnsidiisnseaseecsiseeecess $199 
SK3005 Al. $4pg  NB24-15 24 Pith -snserssren $549.95 <IDATA EXP 600P 0... seessssuees $299.95 
SCcITIZEN OK! a7 es EXP ROP ncn . $649 
B ROTH ER | Okie 2 sesscsccosesevnsseseeven $119 
a $149.95  Okimate 20 wicart ........... $179.95 Toshi [ ba 
i S195 48D. D csscssvecsssvsersasesoevennvese $V7E.G5 120 sssssscerecsesecsssrscrsssessnenss $189.95 9321S $489 
M1409 sisnenneinnins: $200 MEP cisuuanennnn $250.08 160 sicmmsonuoneinwme SEIDO5 agg gy nn ga 
M1509 . arsine $365 MEPHA0 coccsecesssceccesccrececcee $2BQ.Q5 12 srssersssssssssescssserssversenes 9 199,95 P351 Model Il $899 
M9708 ovssssessie MTB EE EIAB  cccirrsicrescrcoisnee ERAGE: ONMEM seeeereserssorestarasessys $309.95 pinata 
Twinwriter 6 Dot & Daisy « 1 SOBD ASP BO cssccssscsesnnsesctoens $OS0.05 UDBL sneevseersersernnestsnsue $440.05 DIABLO 


“Ce}lamdat-mn dare] li-t-lale lmao m-jale) oly mliolemt-| ale met: hV(-2 


We stock interfacing for Atari, Commodore, Apple and IBM. 








BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 





COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 


-Gradebook 


See instructions in article 


33 before typing in. 


COGB:A9 
COOB:A9 
C8)10:85 
C6) 8:85 
C@20:02 
CO28:D2 
CHb30:42 
C838:08 
CO40:32 
C048:85 
C@50:8D 
CO58:28 
CO60:A9 
C068:9) 
Cb708:98 
CO78:AB 
COSO:FF 
CO8S8: 28 
CO98:C6 
C698: 9) 
COAG: 68 
COA8:03 
COBB:82 
COBB:A5 
COCeH:AlL 
ce@ce:Cl 
COD8:89 
| CODB:65 
COE@:D8 
COE8:AD 
CBFO:C8 
COF8:8E 
C100:80 
C108:42 
C116:Cc8 
C118:13 
C120:28 
C128:A5 
C130:FC 
C138:65 
C146:85 
C148:C) 
C158:69 
C158:85 
C1l60:CA 
Cl168:88 
C178:05 
Cl178:989 
C180:68 
C188:48 
Cl190:82 
Cl9B:A2 
ClAG:A2 
ClA8:18 
C1B@:E6 
CiBB:EB 
C1CcO:FD 
C1CB:FD 
C1D8:30 


| C1D8:82 


C1lE@:E9 
ClE8:01 
CIFO@:A5 
C1F8:29 
C260:8B 
C208:A5 
C218:c9 
C218:12 
C220:85 


B85 

85 

85 
85 
@) 

AQ 
20 
DO 
AQ 
AQ 
O2 
FF 
8D 
C8 
AQ 
18 
6A 
ca 
Al. 
20 
a) 
AS 
83 
AA 
BA 
cs 
AA 
83 
208 
80 
05 
O4 
65 
Ee 
B2 
Og 
B2 
18 
I) 
85 
AQ 
ce 
85 
48 
B6 
20 
F4 
99 
60 
OA 
2F 
AS 
BD 
36 
18 
B3 
F7 
a4 

FD 
E6 
A8 
2A 
85 

C6 
B5 

49 
DE 

54 


B85 


AA 
AY 
AB 
BO 
85 
08 
EC 
FD 
86 
@5 


on page 


85 AS 
85 AG 
AQ O85 
8D BA 
BE 20 
FF 20 
14 Ag 
FA 4C 
85 04 
AQ OF 
AQ 93 
26 D@ 
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9A 
AI 
E2 
F6 
cS 
35 
37 
Bl. 
93 
E8 
B86 
=] 4) 
BC 
9B 
2E 
17 
82 
AD 
cc 
DB 
59 
D4 
10 
4c 
29 
TE 
A3 
52 
E5 
A2 
88 
F7 
F he 
89 
13 
39 
cc 
6B 
87 
D1 
1B 
92 
D2 
49 
2P 
46 
FB 
508 
32 
05 
C3 
95 
6B 
BF 
EF 
E6 
CA 
90 
E4 
D6 
34 
5B 
6F 
cs 
5F 
9] 
4B 
34 
32 





C228:4C 
C230:11 


C238:E9 1 


C240:F@ 
C248: 20 
C250:A5 
C258:682 
C260:D0 
C268:AF 
C278:14 
C278:B8 
C288:85 
C288:62 
C298:48 
C298:Cc9 
C2A0:05 
C2A8:06 
C2B0:C6 
C2BB8:C2 
C2CO:A6 
C2C8:E9 
c2D8:c2 
C2D8:48 
C2E9:Bd 
C2E8:18 
C2F0:AB 
C2F8:608 
C308:B5 
C308:C7 
C318:B6 
C318:E6 
C328:A6 
C328:18 
C330:20 
C338:E2 
C340:85 
C348:c9 
C350:2A 
C358:A9 
C3680:63 
C368:47 
C378:18 
C378:4c 
C388:Db 
C388:B0 
C398:54 
C398:29 
C3AG:A2 
C3A8:C8 
C3B8:20 
C3IBB:A2 
C3cga:4c 
C3C8:16 
C3Da:82 
C3D8:18 
C3E@:FO 
C3E8:Fs 
C3F0:0F 


| C3F8:09 


C408:0F 


C408:2C 


C4108:F¢@ 
C418:20 


C420:0F 


C428:62 
C430;:0] 

C438:0) 

C440:20 
C448:De 
C450:37 
C458:03 


| C460:20 


C468:18 
C470:85 
C478:85 
C480; 20 
C488:290 
C490:A5 
C498:FO 
C4A@:AB 
C4A8:E6 
C4B0:26 
C4B8:A8 
C4co:B9 
C4Cc8:18 





C4Dea:AB 
C4D8: 28 
C4E0:C6 
C4E8:85 
C4F0:00 
C4F8:48 
c500:cC8 
C508:686 
C510:c9 
C518:4¢C 
C520:B6 
C528:A4 
C530:E5 
C538:A8 
C540:FF 
c548:c5 
C550:4c 
C558: ba 
C560:7A 
C568:A8 
C5708:20 
C578:88 


| C580:65 


C588:52 
C590:4A 
C598:85 
CSAB:A5 
C5A8:03 
C5BO:FB 
C5B8:02 
c5C8:Dad 


| C5C8:D?7 


c5Da:ca 
C5D8:88 
C5E@:C2 
C5EB:E6 
CSFO:A9 
C5F8:A9 
COBB:AB 
C668:Cc9 
C6l10:A9 
C618:c9 
C620:CA 


| C628:CF 


C6380:A6 
C638:C6 
C640:0) 
C648:8C 
C650:A8 
C658:A9 
C660:00 
C668:c9 
C6708:C9 
C67B:A4 
C6BG:E6 
C688: 20 
C698:AD 
C698:BD 
C6AB:A9 
C6AB:AD 
C6B98:20 
C6BB:BC 
c6coa:99 
C6Cc8:00 
Cc6bpea;48 
C6D8:26 
C6E@O:AB 
C6EB:286 
C6FO:C7 
C6F8:A7 
C708:Ce8 | 
C708:C7 
C716:69 
C718:be 
C720:C6 
C728:A8 
C/730:60 
C73B:AA 
C740:10 
C748:c9 
C750:68 
C75B8:A9 
C/v6e:3Cc9 
C76B8:AB 
C776: 9) 








C778:A2 
C786:84 
C788:84 
C798:65 
C798:983 
C7AG0:8A 
C7A8:18 
C7BG:00 
C7B8:65 
c7c@:85 
C7CB:06 
C7DS8:A6 
C7D8:85 
C7E®8:A5 
C7E8:A5 
C7F6:14 
C/7FB:A9 
CBOB8:20 
C808:CF 
C818:A9 
C818:A5 
c820:91 
C828:AE 
C830:61 
C838:20 
CB846:64 
C848: De 
C850:86 
C858:85 
C8668:99 
C868:A4 
CB78:c9 
C878:82 
CB88:8E 
C888:91 
C898:80 
C898: 28 
CBAG:BC 
CBAS: 28 
CBBA:A9 
CB8BS:6A 
c8c8:BB 
C8C8:9F 
CB8be:c9 
C8D8:A2 
CBEO:6A 
CBE&S:C6 
CBFO:A9 
CBF8:B) 
c900:65 
C9GEB:F9 
c916:98 
C918:18 
C920:00 
C928:A5 
C930:61 
C938:02 
C948:D9 
C948: 20 
c950:18 
C958:AA 
C966:05 
C968:2A 
C970:CE 
C978:E9 
c980:85 
C988:85 
cC999:CA 
c998:90 
C9AG:88 
C9AS8:A9 
C9OBE:c9 


C9BS:C7 


c9c¢8:18 
C9C8:8A 
C9De@:85 
C9DB:A9 
C9E8:c9 
C9SESB:Cc9 
CS9F3:69 
C9FS: Ds 
CABE:B3 
CAGB:A9 
CA1@:99 
CA1LB:B7 


AC 


03 


De 


20 


| BE 


CA20:18 
CA28:85 
CA308:1D 


| CA38:4D 


CA48:1D 
CA48:46 
CA50:4B 
CA58:1D 
CA60:52 
CA68:45 


| CA7@:45 


CA78: 20 
CA88:47 
CA88: 20 
CA98: 206 
CA98: 20 


| CAAG:4C 


CAA8: 54 
CABO: 20 
CAB8:08 
CACO :28 
CAC8:12 
CAD@:55 
CADB: 08 
CAE@:52 
CAES8: 53 
CAFO: 26 
CAFS: 20 
CBG8:54 
CB@8: 20 
CB16:4D 
CB1S: 20 
CB260:208 
CB28:88 
CB30:4E 
CB38:CF 
CB40:BE 
CB48:B9 
CB50:FO 
CB58:69 
CB60:A9 
CB68:A9 
CB768:A5 
CB/8:03 
CBSO:FF 
CBBB:FO 
CB98:B] 
CB98:902 
CBAG@: DF 
CBAS: 7F 
CBBO:82 
CBBS:E6 
CBCe: Ds 
CBCS:FO 
CBD@:22 
CBD8:62 
CBEO:28 
CBE8:69 
CBFO:85 
CBFS: 28 
ccdd:18 


| CC0B:18 


CC)@:88 
CC18:68 
CC20:60 


60 
03 
1D 
45 
1D 
45 
8D 
1D 
41 
i) 4) 
20 
20 
1D 
1D 
88 
4F 
95 
29 
28 
1.2 
5) 4) 
28 
28 
12 
52 
49 
4E 
BB 
20 
20 
45 
20 
41 
OD 
59 
CB 
AQ 
AY 
13 
ee 
98 
i) 4) 
82 
69 
A4 
308 
FB 
29 
C5 
Bl. 
AS 
F7 
AE 
04 
CA 
29 
ES 
80 
83 
3F 
60 
Dd 
B2 
cg 
53 


82 
1D 
49 
23 
508 
4D 
1D 
46 
4E 
52 
20 
1) 
1D 
1D 
29 
43 
a] 4) 
20 
53 


45 


20 
268 
45 
4) 
OB 
45 
45 
46 
4B 
4) 
20 


20 ° 


46 


54 


29 
8) 
AQ 
CB 
65 
O1 
20 
BE 
85 
86 
E8 
1 
A3 
BI. 
BO 
Bl 
88 
A6 
BE 
97 
FF 
86 
AS 
03 
61 
20 
49 
49 
20 
20 
1) 


Autoboot Maker 


FF 108 


RH 1). 


INPUT 


INPUT 


| Article on page 60. 


GRAM"; BNS$ 


126 


INPUT 


OF 


AFTER LOAD" ;LOCS$ 


D8 
33 
95 
399 
28 
OB 
FS 


85 | 


BD 
6B 
98 
06 


AS | 


31. 
28 
4E 
2), 
7B 
Ic 
4) 

EC 
69 
9). 
BC 
AD 
Ba 
95 
76 
A7 
9c 
87 
AF 
=F 
46 
AD 
18 
2E 
64 
FS5 
CA 


95 


; AC 
E4 | 


6D 
DF 
94 
65 
E7 


, C9 


Bl 
E3 
EE 
D3 
DB 
D4 
Ca 
32 
72 
90 


6E 


F2 
D4 
DB 
68 


"NAME OF PROGRAM 
[SPACE}TO LOAD": PNS 
"NAME BOOT PRO 


“LOCATION TO JUMP 


EA 





AS 
cQ 


MG 
PX 


138 
140 


158 
160 


IF LocS="" THEN BASIC=] 
:GOTO 169 

IF LEFTS(LOCS,1)="$" TH 
EN GOSUB 768:GOTO 169 
LOC=VAL(LOCS ) 

INPUT "KILL RUNSTOP/RES 
TORE (Y/N)";RNS 





178 
180 


198 
200 


210 
220 
238 
240 
250 
260 
278 
280 
2998 
300 
=p 
326 
338 
348 
350 
3608 


378 
388 
390 
4060 
416 
420 
436 
446 
450 
460 


478 


480 


| 490 


500 
510 
520 
539 
540 
550 
560 
570 
580 
590 
600 
619 
620 
630 
646 


650 
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RNS=LEFTS (RNS,1) 

IF NOT (RNS="Y" OR RNS= 
"N") THEN 16@ 

OPEN 15,8,15,"I" 

OPEN 8,8,8,"@0:"+BNS+",P 
,w" 

PRINT#8, CHRS(167)CHRS(@ 
2)1 
PRINT#8,CHRS(LEN(PNS$)); 
PRINT#8, PNS; 

IF RNS="N" THEN 388 

FOR C=l TO 17 

READ CODE 7 
PRINT#8,CHRS (CODE); 
NEXT Cc 
120@{9 SPACES}: REM 


169,052{5 SPACES}: 

LDA #52 

DATA 141,020,083 : 
[SPACE]STA $8314 

DATA 169,134{5 SPACES]: 
REM LDA #134 
DATA 141,624,663 : 
{[SPACE]STA $@318 
DATA 169,234{5 SPACES]: 
REM LDA #234 

DATA 141,625,883 
[SPACEISTA $8319 
DATA @88(9 SPACES}: 
CET 

GOTO 390 

FOR C=l TO 17:READ CODE 
:NEXT C 
FOR C=l TO 
READ CODE 
PRINT#8, CHRS (CODE); 

NEXT C 

DATA 169,002{5 SPACES]: 
REM LDA #2 

DATA 162,@088{5 SPACES]: 
REM LDX #8 

DATA 168,255{5 SPACES]: 
REM LDY #255 
DATA 032,186,255 
SR SFFBA 

DATA 173,167,882 
DA $@2A7 

DATA 162,168{5 SPACES]: 
REM LDX #SA8 

DATA 1680,602{5 SPACES}: 

REM LDY #$62 

DATA 632,189,255 

SR SFFBD 

DATA 169,0@@0{5 SPACES}: 

REM LDA #$0@ 

DATA 032,213,255 

SR SFPD5 

DATA 169,13115 SPACES]: 

REM LDA #131 

DATA 141,002,083 

TA $8302 

DATA 169,164[5 SPACES]: 

REM LDA #164 

DATA 141,003,663 

TA $0363 

DATA 134,045{5 SPACES]: 

REM STX $2D _ 

DATA 132,846[5 SPACES]: 

REM STY S$2E 

IF BASIC=1 THEN GOSUB 8 

6@:GOTO 620 

LI=INT (LOC /256):L2=LOC- | 
(L1*256) 

PRINT#8, CHRS (76 )CHRS(L2 

)CHR$(L1); 

IF RNS="Y" THEN BU=58+L 

EN (PNS )+). 

IF RNS="N" THEN BU=4).+L 

EN (PNS )+1 

IF BASIC=1 THEN BU=BU+1 

1 

BL=88-BU 


REM 


REM 


REM 


REM 


38 


:REM J 


2:REM L 


‘REM J 


:REM J 


:REM S 


REM 5 


75 





660 
6798 


680 
690 


708 


718 
728 
730 
746 
750 
760 
778 
786 
798 
HOG 


810 
820 
B38 
840 
856 
860 
BO 
880 
89¢ 
900 
916 
926 
930 
940 
954 


968 


KQ 1060 


| KQ 110 


120 





FOR C=l1 TO BL+1:PRINT#8 
»CHRS(@);:NEXT C 

Fe ee eee na) CUBS C2 
27); 

B=679+LEN(PNS )4+1 
L1=INT(B/256):L2=B-(L1* 
256) 

PRINT #8, CHRS(L2)CHRS(LI1 
CLOSES 

GET#15,A$:S=ST 

PRINT AS; 

IF S=@ THEN 720 

END 

L=LEN (LOcCS) 

S=L-1 

FOR C=] TO L 
IS=MID$(LocSs,c,1) 

IF IS<="9" THEN IS=STRS 
(VAL(I$)) 

IF I$S=>"A" THEN IS=STRS 
(Asc(IS)-55) 
LOC=LOC+VAL(I$)*16fs 
S=S-1 

NEXT C 
RETURN 

FOR C=1 TO 
READ CODE 
PRINT#8, CHRS(CODE); 
NEXT C 

DATA 169,@00{5 SPACES}: 
REM LDA #$90 

DATA 133,122{5 SPACES}: 
REM STA S7A 

DATA 169,008{5 SPACES}: 
REM LDA #$08 

DATA 133,123{5 SPACES]: 
REM STA $78 

DATA 032,096,166 
SR SA668 

DATA 876,174,167 
MP SAT7AE 

RETURN 


14 


:REM J 


:REM J 


Snapshot 


Article on page 28. 


Program 1: Snapshot 


POKE56, 146:CLR:SC=16024: 
CM=54272:XT=0:YT=0:X=0: 


Y=08:R=24:C=39:DIMNAS(31 


) 

SNAPSHOT=51008 : POKE5328 
@,11:POKE53281,12:GOSUB 
249 

PRINT TAB(7)"SET UP AND 
COPY SCREENS" ;FORI=08TO 
1200 :NEXT 


BK 16 GOSUB240:PRINTTAB(9)"SNA 
PSHOT DEMONSTRATION" 

EA 148 SYSSNAPSHOT,D,*:REM ERA 
SE OLD SCREENS 

BB 158 FORI= @ TO 31:X=#I:Y=0:G 
OSUB25@ 

SQ 160 X=X-]1:Y=Y+l:IF X>=0 THE 
N GOSUB250:GOTO16@ 

ME 178 NAS(I)=STRS(1I):NAS(I)=R 
IGHTS (NAS$(1I),LEN(NAS(T) 
)-1):NS=NAS(I1) 

EM 1890 SYSSNAPSHOT,C,NS:NEXT:R 
EM COPY SCREEN 

ME 198 GOSUB2?4@:PRINT TAB(8)"S 
NAPSHOT PRINTS SCREENS" 

KQ 200 PRINT:PRINT:PRINT TAB(1 


®)"PRESS (STOP) TO END" 
:FORI=0TO3000:NEXT 


76 COMPUTE!'s Gazette Special 1988 Issue 





214 


229 


2306 
240 


250 
266 


276 
286 
2908 
388 
316 


328 
438 


FORI=8TO31:NS=NAS(1I):SY 


SSNAPSHOT, P,NS$:NEXT 
FORI=31TO@STEP-1:NS=NAS 
(I) :SYSSNAPSHOT, P,NS:NE 
XT 

GOTO214 

PRINT" {CLR} (WHT}":FORI= 
8@TO9:PRINT:NEXT: RETURN 
IF Y>24 THEN300 

XT=X: YT=Y:CH=78:GOSUB31 
0 

XT=C-X:CH=77:GOSUB319 
YT=R-Y:CH=78:GOSUB310 
XT=K :CH=77:GOSUB310 
RETURN 

P=40*YT4+XT+SC: IFPEEK(P) 
=7 7ORPEEK (P )=78THENCH=8 
6 

POKEP, CH: POKEP+CM, 0 
RETURN 


Program 2: Snapshot Demo 


C124:78 
Cl2C:8D 


| C134:C). 


C1l3c:8D 
Cl44:AD 
Cl4c:58 
C1l54:FA 
c15C:8D 


1 C164:AD 


€1l6c:c9 


/C174:¢c5 


CL7c:Cl 
C184:1D 
C16C: 2) 
C194:25 
C19C:20 
C)A4:Cl 
ClAC:F9 
Cl1B4:26 
ClBac:Cl 
C1c4:67 
C1lcC:FE 
ClD4:A9 
C1pc:c7 
C1lE4:85 
ClLEC:AG 
ClF4:Cl 


| CLFC: 37 


C204:68 
Cc20C:84 
C214:14 
C21C:E4 


C224:cC9 1 


C22C:EE 
C234:0¢0 
C23C:Dd 
C244:De 


| C24C:9D 


C254:084 
C25C:85 
C264:71 
C26C:C2 
C274:8E 
C27C:A2 
C284:86 
C28C:86 
C294:FF 
e29C:D/7 
C2A4:Cc 


| C2AC:61] 


C2B4:98 
C2BC:02 


| C2C4: D3 


c2Cc:D2 
C2D4:68 
c?2DC:01 


C2E4:FC 


C2EC:AG@ 


C2F4:008 
C2FPC:Da 


AD 
ES 
AQ 
Ls 
63 
60 
AY 
FF 
36 
04 


. FO 
BD 
3 AQ 
36 
4E 
cs 
AQ 
. 69 
BE 
Cl 
BD 
29 
2A 


20 
E7 
Cl 
att} 
cl 
DO 
BF 
66 
G2 
A5 
13 
FO . 
FO 
FO 
Cl 
C6 
4c 
cB 
C6 
4c 
83 
Cl 
36 
36 
C2 


c9 
14 
14 
66 
63 
ae 
FE 
63 
a7 
4c 
FO 
1B 
LF 
23 
2/ 
OD 
20 
cl 
DF 
20 
0) 
EBs 
48 
Fl 
EA 
c7 
4c 
68 
c7 
ci 
cc 
c9 
CA 
26 
D7 
20 
C] 
AD 
FF 
20 
50 
65 
Bb 
OD 
De 
84 
HD 
C2 
18 
c4 
AS 
L& 
c4 
71 
CF 
A2 
Ad 

60 

co 
} Oo 





C304:99 
C38Cc:60 
C314:¢c3 
C31C:85 
C324:63 
C32C:AD 
C334:C4 
C33C:0A 


| C344:C4 


C34C:95 
C354:F0 
C35C:6B 
C364:A9 
C36C:09 
C374:c4 
C37C: 26 
C384:05 
C3BC:EE 
C394:Da 
C39C:95 
C3A4:A9 
C3AC:71 
C3B4:A9 
C3IBC:85 
C3C4:AB 
C3cc:68 ¢ 
C3D4:0E 
C3DCc:8C 

C3E4:85 
C3EC: 20 
C3F4:c4 
C3FC:71 
C464:03 
c46c:cBs 
C414:AD 
C4)C:FD 
C424:05 
C42C:FF |! 
C434:Ccé 


| C43C:0F 


C444:01 
C44C;8C 


| C454:4C | 
} C45C:86 


C464:D0 
c46c:A9 
C474:604 
C47C:E4 
C484: Dé 
C48C:A9 

c494:68 
C49C:0F 
C4A4:59 
C4ac:18 
C4B4:02 
C4BC:60 


} C4c4:C7 


c4cc:C6 
C4D4:5F 
c4pc:85 
C4E4:00 
C4Ec:c5 
C4F4:85 
C4FC:083 
C504:8D 
c50c:c4 
C514:0F 
C51C:20 
C524:0F 
C52¢61C5 
C534:4c 
C53C: 298 
C544:4¢c 
C54C: 20 
C554:0B 
C55C:C6 
C564:53 
C56C:07 


|} C574:28 


C57C: D6 
C584:C5 
c58c:C5 
C594:A5 
c59C:Dé 





360 PRINT "HAPPY NEW YEAR" 
378 IF F THEN 4606 

386 PRINT "YEAR"; 

396 INPUT Y8 

490 D9S=RIGHTS (STRS (160+M9 ) 


C5A4:85 83 20 CB C5 29 57 C4 
C5AC:A6 62 EO 25 BO OB 4A 4A 
C5B4:4A 4A 20 57 C4 4C AG C5 |] 
C5BC:90 4C E9 Cl Bl @4 AG O64 
|} c5C4:D0 62 C6 O5 C6 84 GH BI. 


C83c:18 Cl C9 44 D@ 64 A2 O88 AT 
C844:D@ 86 C9 54 DA BA A2 Bl 33 
C84C:A9 862 AD Oi 20 BA FF 60 A3 
C854;:68 68 AY 57 26 SF C7 4C 39 
C85C:E9 Cl AG O68 26 Fl C2 AD 63 


c5cC:08 AG 88 DA 82 Cé B9 C6 C864:63 Cl DO @3 20 4E Cl) AY C9 PE oh fle 
C5D4:08 66 91 86 EG B86 DO B2 Cé6c:36 85 61 8D 37 C7 8D 36 93D 418 D9S=D9S+RIGHTS(STRS (100 
| c5pc:E6 87 60 AQ GB 20 5F C7 C874:C7 BA 8E 16 C) AG 86 8C EB +D9),2) 


C87C:81 Cl 28 73 88 BSD 37 C7 Ab 
C884:C9 49 FO 55 85 OD 20 73 DA 
CBec:88 20 73 O08 FO C4 99 BO 62 
C894:Cl C8 20 73 88 FO 18 C9 22 
| C89e<2C Fa 0C7C9' 24° FO 63 99 ES 

C8A4:08 Cl CO OF D@ EB C8 AX 21 
CBAC: 28 99 68 Cl) 8C 14 Cl AS AE 
C8B4:08D C9 4C FO 2C C9 53 FO F7 
C8BC:28 280 FB C8 A5 BD C9 43 AE 
C8c4:FO0 8B C9 44 FO GA C9 58 A2 
C8CC:F9 89 4C 56 CB 4C BD C3 5D 
C8D4:4C DF C5 4c c@ C4 4C F9 AD 
CBDC:C7 28 73 68 DO FB 4C F2 CA. 
| CBE4:C6 20 73 88 CI 2C FH FY 2B 
C8EC:8D 18 Cl 20 FB C8 A5 OD DE 
CB8F4:C9 4C D@ E2 4C 12 CB 28 23 
C8FC:79 O68 FO 05 20 73 88 DB 59 
C984:FB 68 AS 2D 85 @2 A5 2E E2 
C96C:85 83 A@ 88 AD B81 Cl 69 35 
C914:88 8D 61 Cl AE @8 C) BA OB 
C91C:D] @2 FO O86 20 68 C9 4C FI 


C5E4:A0 63 20 BA C2 AD 2A 28 
C5EC:DD C6 AY AC 28 DD C6 26 
C5F4:B3 Cé CO FF DA BB AI 48 
CS5Fc:20 5F C7 4C ES Cl 28 88 
C684:C6 4C EY Cl 84 OD 98 18 
C69C:69 O62 CD FD CO DO OF BY 
C614:00 C@ 8D FE CB BY Bl CB 

C6lC:8D FF CO 4C 7B C6 BY OO 
C624:C0 85 82 B9 61 CB 85 83 
C62C:B9 04 CO 85 84 BY O5 Ca 
C634:85 85 20 BSE C6 A4 OD 38 
C63C:B9 88 CO F9 84 CO 85 OS 
C644:B9 @1 C@ F9 85 CB 85 B9 
C64C:88 88 A6 OD E8 ES BD BO 
C654:CH 99 O66 CO CB ES EC FD 
C65C:C@ 99 F3 A4 BD 18 BY OO 
C664:C0 65 68 99 8B CH CB BY 
C66C:00 CO 65 89 99 BB CH CB 
C674:FO @5 C8 C8 4C 61 C6 AD 
C6é7C:FD CO 38 ES 64 8D FD Co 
C6B84:A8 AY 28 99 88 Co 99 Bl 


420 IF F THEN 449 

439 D9S=D85$ 

4490 F=(l=1) 

, 4509 GOSUB 1960 

468 PRINT “PAST EVENTS: "; 

470 IF L@>=0 THEN 599 

480 PRINT "NONE" 

498 GOTO 650 

500 PRINT LO+) 

518 GOSUB 40180 

520 F9=-] 

538 FOR J=@ TO L@ 

549 IF MIDS(LS(J),6,1)="/" 
{SPACE} THEN 578 

550 LS(LI)=LS(7) 

560 L9=L9+1 

578 NEXT J 

580 L@=LO+1 

598 FOR J=L8 TO L9-]. 

668 LS(J-L8)=L5 (J) 


C68C:CO 68 A2 BO A) G4 81 G2 C924:1B C9 C8 AD G1 Cl Dl G2 60 sees Apeibaaaee ak 
C694:A5 G2 DO 92 C6 G3 C6 G2 C92C:F@ 87 88 28 66 C9 4c 1B EA 639 La=0 
C69C:A5 64 DB G2 Cé G5 Cé 84 C934:C9 C8 Bl 62 C9 19 98 B2 E6 eidlrers 
C6A4:AD FE CO C5 64 DO ES AD 1A] C93C:A9 OF BD 14 Cl AA CA CB 72 650 F=0 
C6AC:FF C@ C5 @5 DO DE 68 AO DG | co44:B) B2 85 B4 CB Bl G2 85 BB 669 FO=0 
C6B4:08 CC FD C@ BO 1E AD OO C94C:05 A@ 09 Bl G4 99 BOC). ED 670 D9S=Da$ 
C6BC:C] D9 OO CO FO @7 CB CB C954:C8 CA 10 F7 AO 20 99 OG 8B). Pao eroars 


C6c4:C8 C8 4C B5 C6 CB AD @) 
C6cc:C] DI B88 CO FO B89 CB C8 

C6D4:C8 4C B5 C6 AY FE AS C& 
C6épC:68 CD 88 Cl FS Be CD Bl 
C6E4:C) FO O81 68 68 68 AD BO 
C6EC: 26 4E Cl 4C ES Cl AD 93 
C6F4:20 D2 FF AY 28 AC FD Cd 


C95C:C) 4C AB C8 18 AS @2 69 AA 
C964:087 85 602 A5 63 69 68 8&5 BA 
C96C:83 C5 38 B@ 81 68 A5 B2 DA 
C974:C5 2F BO B81 69 4C 54 CB B2 
C97C:808 O08 BO 6B BO BO BB BO 1B 


690 IF L<>@ THEN 719 
708 PRINT "NO FUTURE EVENTS 


719 IF L=0 THEN 739 
728 PRINT L;" FUTURE EVENTS 


ei 7 738 PRINT 
C6FC:99 O80 CO C8 CO FB 90 FS Memo Diar : | 
C704:A2 54 26 56 C7 AO OG BO | y Ge. alle ke \GEE FUTURE “BV 


C76C:00 C@ 20 D2 FF BY 81 CO 
C714:20 D2 FF A2 OD 28 56 C7 
C71C:B9 54 C@ 20 D2 FF B9 55 
| C724:CO 26 D2 FF A2 @D 20 56 
| C72C:C7 BY AS CO 28 D2 FF 4c 


Article on page 37. 759 PRINT "2. ADD NEW EVENT 


CE 90 F=(1=)) 
OM 180 GOSUB 2259 


768 PRINT "3. CANCEL EVENT" 
778 PRINT "4. SEARCH FOR EV 


| RG 1]@ DATA JAN, FEB, MAR, APR, MA " 
C734:3B C7 00 OB 4c SE C8 BO “; Bere 
C73C:A9 CO 20 D2 FF A2 24 20 beh JAR TERING ©S> (QUITS 
of : : DR 128 DATA JUL,AUG,SEP,OCT,NO 798 PRINT 
C744:51 C7 C8 C8 C8 C8 Co O54 wanee ? 
C74c: Dea BD 4c E9 Cl AQ ap 30 ’ BOB PRINT oe 8 YOUR CHOICE ( 
te He: CB 138 DATA SUNDAY, MONDAY, TUES 1-5)"; 
C754:D2 FF A9 20 20 D2 FF CA 
C75C:D0 FA 60 AB AD 37 C7 FO DAY , WEDNES DAY 810 INPUT A 
ES 148 DATA THURSDAY, FRIDAY, SA B8?0 PRINT 
Sune NB A) sy RS ATE atl a TURDAY 830 ON A GOTO 850,940, 1210 
C76C:20 D2 FF A2 27 20 56 C7 het er: EM Caen ke 
" r 


C774:84 OB AB 5D 28 82 C7 A4 
C77C:9B AJ 12 20 D2 FF B9 94 
| C784:C7 FO O07 26 D2 FF C8 4C 
|} C78C:82 C7 AY 92 26 D2 FF 60 
C794:53 43 52 45 45 4E 20 4E 
C79C:4) 4D 45 3F @6 46 49 4C 
C7A4:45 20 4E 41 4D 45 3F 66 
C7AC:54 41 58 45 20 4F 52 20 
C7B4:44 49 53 4B 20 28 54 2F 
C7BC:44 29 68 4D 45 4D 4F 52 
C7C4:59 209 49 53 20 46 55 4C 

c7cc:4C 668 49 4E 44 45 58 20 
C7D4:49 53 20 46 55 4c 4C 66 


CF 158 DIM MS$(12),WS$(6),LS(190 
) 848 GOTO 730 

850 PRINT "AHEAD TO DATE:" 

860 GOSUB 1670 

878 GOSUB 196¢ 

>; 886 IF L@<¢<>—-1 THEN 910 

890 PRINT "NO EVENTS" 

990 GOTO 920 

918 GOSUB 4010 

920 PRINT L9-L@-1:" OTHER F 

UTURE EVENTS" 
938 GOTO 738 
949 PRINT “ANNUAL OR ONE-TI 


BK l6@ FOR J=] TO 12 
AC 178 READ M$(J) 

KC 188 NEXT J 

GE 198 FOR J=@ TO 6 

BJ 200 READ W5(J) 

JD 210 NEXT J 

DB 220 PRINT “EVENT CALENDAR" 
SA 236 IF F=6@ THEN 260 
JH 240 C=) 

PD 258 GOSUB 3019 

JC 255 IF E=@ THEN 266 


| CM 256 F=@ | i 
C7DC:4E 4) 4D 45 20 4E 4F 54 | 3 ? ae be ME (A/O) 
C7E4:20 46 4F 55 4E 44 @@ 45 os a8 su: TODAY'S DATE: 959 INPUT PS 
C7EC:52 52 4F 52 68 14 20 9D E ¥8=¥ 960 A=0 


PM 280 GOSUB 1670 

DC 290 MB=M 

GQ 380 D8=D 

PJ 310 IF M8>=M9 THEN 336 

JX 328 Y8=Y9+1 

AJ 338 IF M8<>M9 OR D&8>=D9 THE 
N 358 

DA 348 Y8=Y9+). 

JS 350 IF Y8<=Y9 THEN 370 


970 PS=LEFTS(PS,1) 

988 IF PS$="0" THEN 1810 

990 A=) 

1966 IF PS$<>"A" THEN 738 

1618 GOSUB 16798 

1928 Y$="/"+RIGHTS(STRS(19)] 
+¥8),2) 

1630 IF D8$<=D9$ THEN 1050 

1048 YS="/"+RIGHTS (STRS (100 


C7F4:94 20 1D 91 88 20 1D C8 
C7FC:AD FE CO 85 @4 AD FF CO 
C804:85 65 AY 64 AB C) A2 BA 
C80C:20 D&S FF 4C E9 Cl 28 1D 
C8l14:-8 AY 88 20 D5 FF 4C E9 
C81C:Cl AY OD 20 SF C7 AG 1B 
C824:20 BA C2 98 A2 OB AB Cl 
C82C:20 BD FF AY 18 20 SF C7 
| C834:A2 10 AO ll 20 OC C2 AD 
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1056 
1960 
1@76 
1Q868 
18968 


1100 
1119 
1126 
1130 
1148 
1158 
1160 
1170 
1180 
11.998 
1208 
1210 


1228 
1238 
1240 


1356 


1360 
1379 


1.380 
1398 
1490 
1416 
1420 
1430 
1446 
1456 
| 1460 
1476 
1480 
1490 
1500 


1510 
1520 


1530 
1540 
1550 


1560 
1570 
1575 
1580 
1590 


1666 
1610 


1620 
1630 
1640 


1658 
1660 
1676 
1680 
1690 
1708 
1716 





+Y¥8),2) 
IF A<>l THEN 18679 

YSs= a 

GOSUB 19608 

IF L9-1<L9+]1 THEN 1128 
FOR J=L9-1 TO L@+)] STE 
P =] 

L$ (J+1 )=L$ (J) 

NEXT J 

PRINT "DETAIL": 

INPUT LLS$ 

DBS=D8S+YS$ 

D8s=Ds8s+" oe 

L$ (L@+1 )=D8S+LL$ 
L9=L9+1 

L=L9 

F9s—] 

GOTO 680 
PRINT “CHANGE 
TEs" 

GOSUB 1679 
LO=-1 

FOR J=L&S TO 


WHICH DA 


L9=)] 


1250 IF DBS$<>LEFTS(LS$(J),5) 
THEN 1300 

1270 IF L@<>=-)] THEN 1290 

1280 Lé=J 

1299 PRINT J;": ";LS(J) 

1300 NEXT J 

1318 IF L@<>-] THEN 134¢@ 

126 PRINT "NO EVENTS" 

1338 GOTO 736 

1348 PRINT 


PRINT " DELETE WHICH E 

VENT ABOVE"; 

INPUT A 

IF A<L@ OR A>L1 THEN 7 

38 

FOR J=A TO L9-1 

L$ (J )=L$ (J+1) 

NEXT J 

L9=L9-1 

F9=-] 

PRINT § oe. 

GOTO 68¢ 

PRINT “SEARCH FOR"; 

INPUT PS 

P=LEN(PS$) 

FOR J=0 TO L9-1l 

A=7 

IF MIDS(LS(J),6,1)<>"/ 

" THEN 1526 

A=10 

IF A+P-]>LEN(LS(J)) OR 
PS <>MIDS(LS(J),A,P) T 

HEN 154@ 

PRINT LS(J) 

NEXT J 

PRINT "{4 SPACES/]END O 

F SEARCH" 

GOTO 730 

IF F9<>9 THEN 1599 
IFOTHENCLOSE15 

END 

PRINT "READY TO WRITE 
LSPACE!]NEW EVENTS FILE 
(Y/N ) ii 

INPUT PS 

IF LEFTS(PS,]1)="Y" THE 

N 1636 

STOP 

p9S=D9S+ my it 

D9S=D9S+RIGHTS (STRS (YS 

+108),2) 

C=2 

GOTO 

M=¢ 
PRINT "MONTH"; 

INPUT MMS 

M=VAL(MMS ) 

MMS=LEFTS (MMS+"XX",3) 


DELETED" 


3919 
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1720 IF M=@ THEN 1769 
17308 IF M<] OR M>?12 THEN 16 


1746 
1750 
1769 
1778 


1786 
1790 
1800 


18186 
1820 
1836 


16428 
18590 
1860 
1870 


1889 
1.890 


| 1968 


1910 
1920 
1930 
1949 
1956 
1968 
1970 
1980 
1990 
2000 
2010 
2020 
20390 
20406 
2050 
2068 
2070 
2080 
2090 
2100 
21.190 


| 2120 


2130 
2146 


} 2158 


2160 
2170 
2180 
2) 9% 
2200 
2218 


2220 
2236 
2240 
2290 
2268 
3800 


3618 
3820 


3636 


3840 
J056 
3060 
3070 
3080 


J 3098 


31.88 


70 
PRINT MS(M) 
GOTO 1810 


FOR J=l1 TO l2 
IF MM$<>M$(J) THEN 179 
4) 


M=J 

NEXT J 

IF M<] OR M>?12 THEN 16 
768 

PRINT “DAY"; 

INPUT D 

IF D<¢l OR D>3] THEN 16 
78 

DBS=RIGHTS$(STRS§ (1908+M) 
rp AD eee 

D8S=D8S+RIGHTS (STRS(10 
O+D),2) 

Y=Y8 

IF D8$>D9$ THEN 1899 


Y=Y8+1 

GOSUB 2152 

IF LEN(LLS)<=@ THEN 19 

20 

PRINT "C"ews(W)e)" 

RETURN 

C=] 

GOSUB 3819 

RETURN 

LLS=CHRS$ (255) 

L@=-1 

IF L<>0 THEN 2086 

RETURN 

VS=D8S+LLS 

WWS=D9S 

IF F<>@ THEN 29406 

WWS=D95+LLS 

F1=(WWS>=VS ) 

FOR J=L8 TO L9-1 

F2=(L$S(J)>WWS) 

F3=(VS>LS(J)) 

FO=F2 AND F3 

IF FJ)=@8 THEN 2119 

FO=F2 OR F3 

IF FO9=0 THEN 21380 

LO=J 

NEXT J 

RETURN 

IF Y¥>=85 THEN 2176 

Y=Y+1a0 

MIl=M+1 

M2=INT(1/M1+.7) 

M3=Y-M2 

M4=M1+12*M2 

N=INT (M4*30.6001 )+INT ( 

M3*365.25)+D 

M6=INT(N/7) 

W=N-7*M6 

RETURN 

PRINT CHRS$(147)CHRS (5) 

RETURN 

REM INPUT/OUTPUT ROUTI 

NE 

FS="EVENTS" 

PRINT"DISK OR CASSETTE 
(D/c)?" 

GETAS:IF( (AS <>"C")AND( 

AS<>"D") )ORAS=""THEN3@ 

3a 

IFAS="D"THENI060 

DlL=0:GS="";GOTO3870 

FS="@0:"+F$:Dl=1 
IFC=2THEN 31 60 
IFD1=l1THENGS=",5,R" 

OPEN1,1+7*D1,8*D1,F$+G 
$:GOSUB3220;: IFETHENCLO 

SE1:GOTO315@ 
INPUT#1,LL$:IF LEN(LL$ 
)<>8 THEN PRINT LL$;"? 
";GOTO 31428 





3119 


3128 


3136 


3146 
3150 
31608 
3178 


3180 


; 3196 


3200 


3210 
3220 
3236 


3246 


3258 
4000 
4016 
4020 


4930 


4640 
4650 
4060 
4070 


4080 
4090 
4156 
4116 


4120 
41.30 
4140 
4150 


4168 
4170 
41.80 


M=VAL(LEFTS(LLS,2)):D= 
VAL(MIDS(LLS,4,2)):Y8= 
VAL(MIDS$ (LLS, 7,2) ) 

M9=M:D9=D: Y9=Y@:L=0:PR 
INT “LAST ACCESS: ";LL 


2 
INPUT#1,L$(L):L=L+l:IF 
ST=@8 THEN 3130 

CLOSE] :GOSUB3220 

L8=0:L9=L: RETURN 
IFD1=1THENGS=",5,W" 

OPEN], 1+7*D1,1+7*D1,FS$ 

+G$:GOSUB3220:IFETHENC 

LOSE1:CLOSE15:END 

PRINT#1,D9S;CHRS$(13); 

FORJ=6TOL9-1:PRINT#1,L 

$(J);CHRS(13);:NEXTJ 

GOSUB322@:CLOSE1:GOSUB 

3220: IFOTHENCLOSE]5 

END 

IFD]1=0THENRETURN 

IFO=@THENOPENIL5,8,15:0 

=] 

INPUT#15,E, BS: IFETHENP 

RINTB$:CLOSE15:0=0 

RETURN 

REM PRINT ROUTINE 

DS= i 08 : P=3 

INPUT "WANT EVENTS ON 
LSPACE}PRINTER (Y/N)"; 

P$ 

IF LEFTS(PS,1)<>"Y" TH 

EN 4059 

p=4 

OPEN 3,P 

FOR J=L8 TO L@ 

IF DS=LEFTS(L$(J),5) T 

HEN 415¢ 

DS=LEFTS(LS$(J),5) 

M=VAL(LEFTS (DS$,2)) 

D=VAL(MID$(DS,4,2)) 

Y=Y8:IF DS$<=D9S THEN Y 

=YS8+1 

GOSUB 215@ 

PRINT#3,WS(W):" "7; 
PRINT#3,MS(M);D 

PRINT#3,"13 SPACES]";M 
IDS (L$(J),6) 

NEXT J 

CLOSE 3 

RET URN 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





Solarpix 
Article on page 21. 


XA 
FG 
RC 


AR 


PA 


CB 


| CB 


16 POKES6, 132:CLR 

28 POKE792,193: POKE648,132 

38 POKE56576, (PEEK(56576)AN 
D252 )OR) 

40 POKE53280, 3: POKE5328), 3: 
DIMS(255),C(255),M$(9,17 


) 


50 BP=34808: V=53248:LC=4915 


2t 


EY=1984.B2 


60 Pp=2*T:P$(8)="AC":PS$(1)= 
"DE":SA=).1 

76 PRINT" {CLR} {8 DOWN} {BLU} 
"SPc(14)"PLEASE WAIT" 

BGO SPS=CHRS (32):XS=SP5+"Z=E 
XIT" 








98 RES=CHRS$(18):RXS=CHR$ (14 


TS(1)=RES+"SUN & PLANET 
S"+RXS 
T$(2)=RES+"SUN, EARTH & 
{[SPACE]MOON"+RXS 

TS (3)=RES+"COMETS"+RXS$ 
TS (4)=RES+"FACTS"+RXS$ 
FORJ=491527T049240: READK 
: POKEJ, K:NEXT 

PORJ=348) 6T035199:READK 
: POKEJ, K: NEXT 
FORJ=35520T035775:POKEJ 
,@:NEXT 
FORL=) T0]@: READJ, K: POKE 
3558447,K:NEXT 
FORJ=0T0O7:READK: POKEBP+ 
J,K:NEXT 
FORJ=0T07:READH(J):NEXT 
FORJ=0T01@:READFS (J),US$ 
(J) 

L=0 :H=]0:IFJ>4THENL=1:H 
FORK=LTOH: READZ(K,J):NE 
XT:NEXT 
FORJ=)T09:D(J)=2(7,5) 
P(J)=2(J,6):NEXT 
FORJ=0TO10:READNS (J) 
IFJ <4ORJ=] 0THEN28@ 
FORK=1T0Z(J,18):READMS ( 
J,K):NEXT 

NEXT: FORJ=1T0O9: READR: R( 
J )=R/360:NEXT 
FORN=0T0255:M=N*2*f /256 
S(N)=SIN(M):C(N)=CcOS(M) 
:NEXT 
FORJ=32T036:K=74-d 
POKE251, 7: POKE252, 2: POK 
E253,K 

POKE 254, 2:SYS49175:NEXT 
FORJ=0TO7: POKEV+39+J,H( 
J):NEXT 


| POKEV+23, 0: POKEV+29,0:P 


OKEV+16,128 

GOSUB550: POKEV+39, 7: POK 
EV+40, 3 
POKEV+32, 3: POKEV+33,3:P 
OKE646,6 

PRINT" (CLR}":SYSLC, 4, 14 
PRINT" SOLARPIX":PRINT:P 
RINT 

FORJ=] T04: PRINTTAB(8)J; 
TS (J):PRINT 

NEXT: PRINTTAB(9)"Q QUIT 


| GOSUB470:ONKGOTO630, 101 


0,1280,1469 
IFKS<>"Q"THEN429 
POKE56576, PEEK (56576 )OR 
3 
POKE648, 4: POKE792,71:GO 
SUB55¢ 

PRINT" |CLR}":POKE56, 1608 
:CLR:END 

POKE1]98, 8 

GETK$: IFKS=""THEN489 
K=VAL(KS$):RETURN 


SYSLC,18,31:PRINT"G=GO" 


PRINTTAB(31)"S=STOP" 
PRINTTAB(31.) "+=FASTER" 
PRINTTAB (31) "-=SLOWER" 
PRINTTAB(38)X$:RETURN 
POKEV+2).,@:FORJ=0TO15 
POKEV+J, 0:NEXT: RETURN 
SYSLC, 23, 30: PRINTXS 
SYSLC, 2,0: RETURN 
GETK$: IFK$="S" THENFL=]. 
IFKS="G"THENFL=0 
IFKS="—-"THENM=M/2 
RETURN 

POKEV+32, 11:POKEV+33,0: 
POKE646, 7 





640 
650 
660 
670 
680 


699 
768 


710 
726 


730 
746 


759 
769 
778 
780 
798) 


B89 


| 818 


B20 
830 


840 
858 


868 
878 


880 
B90 
900 
916 
926 
939 
940 
959 
960 
9768 


980 
990 


| 1880 
) 18160 


| 1626 


1636 


1646 


1650 


1669 
1978 


1686 


GOSUB550;:PRINT"{CLR} "TS 
(1):GOSUB579@ 

PRINT" K7HPLEASE SELECT 
[SPACE}PLANETS (MAX5)" 
PRINT: FORJ=) T09:PRINTJ; 
NS (J ):NEXT 

PRINT: PRINT" INNER PLANE 
Te 

GOSUB470: IFK$="Z" THEN36 
8 


L=K: IFL<) THEN68d 
PRINTNS (L):PRINT"OUTER 
{SPACE} PLANET?"; 
GOSUB47@: IFKS="Z"THEN36 
) 

H=K: IFH<LORH>9ORH-L>4TH 
EN71@ 
PRINTNS(H):PRINT: X=) 
FORJ=1TOH=-L+)] :X=X+2fouN 
EXT 

FORJ=LTOH: F(J)=D(7)*90/ 
D(H) 
E(J)=F(J)*SA:NEXT:M=P (L 
) /58:ML=M*9 
INPUT"STARTING YEAR (l- 
2000)";KS 

SY=VAL(KS): IFSY<LORSY>2 
OG8THENG638 
PRINT" {CLR} LYEL]"T$(1): 
K=1 

FORJ=LTOH: POKE646,H(K) 
PRINTTAB( 31 )NS$(J):K=K+1 
: NEXT 

POKE646, 14:GOSUB5@0:SYS 
LC, 7,42 

PRINT" EARTH" :PRINTTAB( 3 
1 ) oi YEAR" 
E=,25:T=SY-EY:FL=) 


OKEV+21,X 
FORJ=LTOH:A=T/P(J)+R(J) 
A=INT ((A-INT(A))*256):1 
FJ=9THEN8S9O 
X(J7)=C(A):¥(7)=-S(A):GO 
T0918 
Z=)+E*C(A):X(J)=E+(E+C ( 
A))/2 
Y(J)=(E*E-1)*S(A)/Z 

X (J )=INT(1314+x(7)*E(7)) 
Y(J)=INT (1494+y(3)*F(J)) 
: NEAT 

‘=] : FORJ=LTOH: POKEV+2 *K 
eX (J) 
POKEV+2 *K+1, ¥(J):K=K+l: 
NEXT 

Sg Nees Maha 
10 


SYSLC, 9, 30: PRINTTSSPSSP 
> 
GOSUB59@08:IFKS="2Z"THEN63 
HG) 

IFFLTHEN979 
IFKS="+"ANDM<¢MLTHENM=M* 
2 

T=T+M:GOTO860 

POKEV +32, 14: POKEV+33,0 
: POKE646, 14 
PRINT" {CLR} "TS(2):PRIN 
TTAB(31)"MOON" 
PRINTTAB(31)"PHASE":GO 
SUB500 
SYSLC, 24, 1:PRINT"(EART 
H=-MOON DISTANCE MAGNIF 
IED BY 30)"; 

SYSLC, 7,31:PRINT" EARTH 


PRINTTAB(31) "DAY" 
E=84:D=E*SA:F=D*30/396 
:G=F/SA 
M=0.3/365.25:T=0:H=13. 
3685 





JQ 


PX 


XQ 1450 T=T+M: GOTO] 396 
XA 1460 POKEV+32, 3: POKEV+33, 6: 


CD 


MS 
JK 


SJ 


FS 
BC 


CR 
QD 
GE 


EM 


1690 
1189 
LJ16 


1126 
1136 


1148 
11508 


1160 
1176 
11.66 
1198 
1200 
1218 


1226 
1236 
1240 


1250 
1266 


41276 


1280 
1298 
1300 
1316 
1320 
1336 
1346 
1358 
1360 
13708 
1386 
1.3998 
14080 
1410 
1420 
1430 
1446 


14708 


1486 
1496 


1508 


1518 
1526 


1530 
1546 


15568 


1560 


POKEV+39, 14: POKEV+49, 1 
2 

POKEV+12, 141:POKEV+1 3, 
147 
POKEV+14, 24: POKEV+15,8 
8 

POKEV+21],195:FL=) 
A=T-INT(T) :B=T*H:B=B-I 
NT (B) 

C=INT (12*(B-A)+.5-7) 
IFC<@THENC=C+12:GOTO1) 
508 

A=A*PP;:B=B*PP 

X=INT (1.42.5+C0S(A) *D) 
Y=INT (148.5-SIN(A)*E) 
W=INT (X+1+COS(B)*F) 
Z=INT (Y+)-SIN(B)*G) 
POKEV, X: POKEV+1, Y: POKE 
V+2,W 
POKEV+3, Z: POKEBP+7, 32+ 
c 
SYSLC, 9, 30: PRINTINT (T* 
365.25) 

GOSUB59@;: IFKS="Z"THEN3 
60 

IFFLTHEN1] 248 
IFKS="+"ANDM< . @@6THENM 
=M*2 

T=T+M:GOTO1139 
POKEV+32, 5: POKEV+33,9: 
POKE646, 5 
GOSUB550:PRINT" {CLR} "R 
ESTS(3):GOSUB579 
INPUT" ECCENTRICITY (0-2 
»96)";KS5 
E=VAL(KS):IFKS="Z" THEN 
368 

IFE<@ORE>. 960RLEN(KS$)= 
O@THEN]. 280 | 
FL=) : IFRIGHTS(K$,1)="R 
"THENFL=-]) 

PRINT"{CLR] "RESTS(3):G 
OSUB57@ 

PRINT" ECCENTRICITY="E: 
SYSLC, 2,27 
IFETHENPRINT"ACCELERAT 
ING" 
M=@.01:T=0:F=65*SA:G=6 
5*PFL 
POKEV, 106: POKEV+],148: 
POKEV+21,3 
A=(T=-INT(T))*PP:Z=]+E* 
COS(A) 
X=E+(E+COS(A))/Z:Y=(E* 
E-).)*SIN(A)/2Z 

X=INT (107+X*F):Y=INT(] 
49+Y*G) 

J=INT (A/T): POKEV+2,X:P 
OKEV+3,¥Y 
IFE>@.1THENSYSLC, 2, 27: 
PRINTPS (J) 

GETKS: IFK$="Z" THEN] 280 


POKE646,3 
PRINT" {CLR} "RESTS (4)" 
{SPACE} MENU":SYSLC, 4,9 
GOSUB570:SYSLC, 4,90 


PRINT" S SUN":PRINT" M 
MOON" 
FORJ=1TO9: PRINTJI;:NS(J) 


: NEXT . 
SYSLC, 4,0:FORJ=@TO1G 
PRINTTAB(20)CHRS (J+65 ) 


" “FS (J):NEXT 
GOSUB470: IFK$="Z2"THEN3 
69 

IFK$="S" THENK=0:GOTO15 


968 
IFK$="M" THENK=]@:GOTO] | 
590 

IFK>OANDK<] OTHEN1590 
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1579 


1588 
1599 


1600 
1610 
1626 


1636 
1646 


1656 
1660 


1670 
1680 
1696 
1788 
1716 
17208 
| 1730 
1748 


. L750 
1/760 


1778 
1786 
1790 
1800 
1818 
1.820 
1838 
1846 
1856 
1868 
1876 
1888 
1896 


1900 
1916 


1920 
1936 


1948 
1958 


1960 
. L978 
1988 
1996 


2000 





K=ASC (KS )-65: IFK<@ORK> 
JOTHENI] 530 

GOTO1726 
POKEV+32, 3: POKEV+33, 11 
: POKE646, 3 
PRINT" {CLR} "RESNS(K)RX 
of 

H=4 : IFK=@ORK=] OTHENPRI 
NT: GOTO] 636 


H=10:PRINT" PLANET #"K 
"FROM SUN" 
PRINT: FORJ=68TOH 


PRINTFS (J )TAB(18)Z(K,d 
)TAB(28)US(J) 
NEXT: IFK < L@THEN1680 
PRINT"DIST.FROM EARTH" 
TAB(19)"243088 MILES" 
PRINTFS(9)TAB(19)"6 MO 
NTHS" 

PRINT: IFK<4ORK=l10THEN]) 
778 
FORJ=)T0Z(K,18):C=INT ( 
(J-1)/7) 
L=13+J-C*7:SYSLC,L,C*l 
3 
PRINTMS(K,J0):NEXT: GOTO 
17708 
POKEV+32, 3: POKEV+33, 1] 
: POKE646, 3 
PRINT" {CLR) "RESFS(K)RX 
STAB(19)US(K) 
L=8:H=10:IFK>4THENL=1: 
H=9 

SYSLC, 5,@:FORJ=LTOH 
PRINTNS (J )TAB(18)2Z(J,K 
) :NEXT 
GOSUB570:GOSUB478:GOTO 
1460 

DATA 32,13,192, 132, 25] 
,32,13 

DATA 192,166,251, 76,24 
8,255,32 

DATA 253,174,32,158,17 
3,32,1790 

DATA 177,96,162,6,6, 25 
1,38 

DATA 252,6, 253, 38, 254, 
202,208 

DATA 245,169, 21,133, 2, 
168,2 

DATA 177, 25),162,8, 106 
, 38,255 

DATA 202,208, 250,192,1 
,240,4 

DATA 152,73,2, 168,165, 
255,145 

DATA 253,192,1,248,4,1 
52,73 

DATA 2, 168,136,16, 223, 
162,3 

DATA 230,251,230, 253,2 
62,208,249 

DATA )98, 2, 208, 208, 96 
DATA 0,15,08,9,0,192,90, 
0,468 
DATA 
, 28 
DATA 
sid. 
DATA 
DATA 
14 
DATA 
, 56 
DATA 9,0,48,0,0,192,9, 
15,0,@ 

DATA 0,15,6,0,7,192,9, 
3,248 


8,0,7,6,8,7,8,8,7 
8,0,7,0,0,14,0,0, 


b, O, 26,08, OB, 28, 0,0 


DATA O, 1, 248,8,1, 252,28 


,1,252 
DATA 8,08, 254,6,0, 254,60 
» 8,255 
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8,8,56,0,0,28,08,0 


6,6,14,8,6,14,8,8 | 





PK 


HA 


2619 
2626 
2030 
2040 
2058 
20608 
2076 
2088 
2090 
2108 
2118 
2126 
2136 
2146 
2158 
2168 
2178 
21.80 
2199 
2268 
2210 
2226 
2236 
2240 
2258 
2268 


2276 


| 2286 


2299 
2309 
23198 
2326 
2339 


2348 
2358 


2360 
2376 
2388 
2390 
2409 
2419 
2420 
2436 


2440 


DATA 9,0, 255,9,@, 255,90 
,0,255 
DATA @,0,255,9,8,254,@ 
, 8, 254 
DATA @,).,252,0,1,252,@ 
»1,248 


DATA 0,3,240,0,7,192,0 | 


,15,0,0 

DATA 8,15,8,8,15,192,@ 
,15,248 

DATA 6,15, 248,8,15, 252 
,8,15,252 

DATA @,15,254,@,15, 254 
,8,15,255 

DATA 6,15, 255,8,15, 255 
, 8,15, 255 

DATA 0,15, 255,6,15, 254 
,8,15,254 

DATA @,15, 252,8,15, 252 
, 8,15, 248 

DATA 0,15, 248,9,15, 192 
,8,15,8,8 

DATA 9,15,8,@,3),192,@ 
, 63,240 

DATA @, 127, 248,8,127,2 
52,0,127,252 

DATA @, 255, 254,90, 255, 2 
54,080,255, 255 

DATA 9, 255,255,@8, 255,2 
55,0, 255,255 

DATA ©, 255, 255,68, 255, 2 
54,0,255,254 

DATA 6,127,252,9,127,2 
52,0,127,248 

DATA 6,63, 248,98, 31,192 
,8,15,0,8 

DATA @,3),0,0, 255,192, 
3,255,240 

DATA 3,255, 248,7,255,2 
52,7,255,252 

DATA 15, 255, 254,15, 255 
,254, 31,255,255 

DATA 3), 255,255, 31,255 
,255, 31,255,255 

DATA 31,255, 255,15, 255 
,254,15,255,254 

DATA 7,255, 252,7, 255, 2 
52,3,255, 248 

DATA 3,255, 248,98,255,1 
92,9,31,8,8 

DATA 0, 255,08, 3,255,192 
,15,255, 240 

DATA 31,255, 248,63, 255 
, 252,63, 255,252 

DATA 127,255, 254,127,2 
55,254, 255,255,255 
DATA 255,255, 255, 255, 2 
55, 255,255,295, 2909 


DATA 255,255,255,127,2 


55,254,127, 255,254 
DATA 63, 255, 252,63, 255 
7252, 31,255, 248 

DATA 15, 255, 248,3,255, 
192,0,255,8,0 

DATA @,112,3,248,6, 248 
,9,248,12,112 

DATA 64,192,67, 192 
DATA 128, 224,131, 224,1 
34, 224 

DATA 46, 45,45,45, 45,45 
, 44,37 

DATA 7,3,4,14,8,6,7,12 
DATA DIAMETER,MILES 
DATA 8649008, 3100, 7700, 
7926 
DATA 
32000 
DATA 31000,15009,2169 
DATA MASS, (EARTH=1 ) 
DATA 332830,0.055,0.8) 
5,1 

DATA @.107, 318,95.2,14 


4200, 88000, 71000, 





JB 


FR 


MA 


SF 


JK 


EH 


2458 
2460 
2476 
2480 
2490 
2508 
25190 
25208 
2530 
2540 
2550 
2568 
2576 
2580 
2590 
2600 
26198 
2620 
2636 
26408 
2658 
2660 
2670 
26868 
2698 


2700 
2716 
2720 


2739 


2740 


2756 


2760 


2/76 


2780 


2790 


DATA 17.2,08.601,8.812 
DATA DENSITY, (WATER=1 ) 
DATA 1.4,5.4,5.2,5.5,3 
»9,1.3 

DATA @0.7,1.2,1.7,1.4,3 
4 

DATA ROTATION PERIOD, E 
ARTHDAYS 

DATA 25,58.9, 243,1,1.0 
3,08.404 

DATA 6.444,0.72,0.77,6 
~39,27.3 

DATA TEMPERATURE, FAHRE 
NHEIT 

DATA 1@000,620, 900,72, 
-).0, -240 

DATA -300,-340,-370,-4 
00,-10 

DATA DISTANCE FROM SUN 
»MILL.MILES 

DATA 36,67.2,92.9,142, 
483 

DATA 887,1783,2795,367 
6 

DATA LENGTH OF YEAR, EA 
RTH YEARS 

DATA 8.24),@8.615,1,1.8 
8,11.86 

DATA 29.46, 84, 164, 248 
DATA ORBIT SPEED,MPH 
DATA 1876006, 78600, 660€ 
8, 54090 

DATA 29000,22000,15000 
, 12000, 18000 

DATA AXIS TILT, DEGREES 
DATA 8,179,23.5,25,3.1 
DATA 26.7,97.9,28.8,8 
DATA DRIVETIME(55MPH), 
YEARS 
DATA 
@2 
DATA 
12 
DATA 
DATA 
3,4 
DATA SUN,MERCURY, VENUS 
» EARTH, MARS, PHOBOS, DEI | 
MOS 
DATA JUPITER, METIS,ADR | 
ASTREA, AMALTHEA, THEBE, 
IO, EUROPA, GANYMEDE, CAL 
LISTO 

DATA LEDA, HIMALIA, LYSI 
THEA, ELARA, ANANKE, CARM 
E, PASIPHAE, SINOPE 

DATA SATURN,ATLAS,X,X, 
JANUS, EPIMETHEUS, MIMAS 
, ENCELADUS, TETHYS, TELE 
STO | 
DATA CALYPSO, DIONE, X,R 
HEA, TITAN, HYPERION, IAP 
ETUS, PHOEBE 

DATA URANUS, MIRANDA, AR 
IEL, UMBRIEL, TITANIA, OB 
ERON, X,X,X%,X,X,X,-X,HX,H 
PP, 4 

DATA NEPTUNE, TRITON, NE 
REID, X, PLUTO, CHARON, MO 
ON 

DATA 198, 255,351,285, 2 
49,188, 204,227,173 


75,139,193, 295, 18 
1840,3698,5797,76 


MOONS, - 
0,6,1,2,16,17,15, 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 


| COMPUTE!’s GAZETTE Programs,” 
| | elsewhere in this issue. 











Math Dungeon 


Article on page 22. 


RK 


KM 
EQ 
FC 
SK 
KS 


XK 


GR 


KA 


BG 


11.8 


128 
138 
1508 
155 
1608 


178 


189 
192 
2668 
218 
226 
230 
240 


250 


268 


278 
280 


296 
380 


318 


320 
338 
346 
3598 


360 
378 


380 
398 
450 
41.08 
415 
426 
430 
435 


440 


450 


4736 


480 


DIM CM$(22),CM(22),INS{ 
5), 1N(5),0BS(13),0B(13) 
,0S$(48),FL(16, 10) 
SYS65517:CC=PEEK (781 ) 
IFCC=49THENPOKE53281,] 
GOSUB 788:GOSUB1620 
PRINT" {CLR} " 
GOSUB79@:CM(2 )=1:CM(5)= 
1:FORI=14T0O19:CM(I)=1:N 
EXT: 0B(1)=). 
PRS=DSS$(1):GOSUB257@0:IF 
GTTHENPRS=DS$ (2) :GOSUB2 
570 
IFGT=@8THENPRS=DS$(3):GO 
SUB2570 
GOSUB231@: IFPL=20RPL=5T 
HENGOSUB888:GOTO1L9D 
IF PL=1 6ANDGT=0THENPRS=D 
S$ (3):GOSUB2576:GOTO]9¢ 
IFPL=] 6THEN 280 
IFPL>16THENGOTO250 
GOTO170 
PRINT" (CLR}“":PRS=DS$ (4) 
:GOSUB2570 
GOSUB798:FORI=).4T0]9:CM 
(I )=1:NEXT:GOSUB23160: IF 
PL=]6THEN280 
IF PL=] 5THENPRS=DSS(4):G 
OSUB2570@ 
GOTO256 
GOSUB79@:PRINT"{CLR}":c 
M(1 )=1:CM(3)=1:CM(6)=1: 
FORI=14T01.9:CM(I)=1:NEX 
T 
CM(4 )=1 
PRS=DS$(5):GOSUB257@:IF 
MB=@THENPRS=DS5$ (6):GOSU 
B2570 
IFMBTHENPRS=DS$(7):CM(7 
)=1:GOSUB2570: IFNT=1THE 
NPRS=DS$(1]1):GOSUB 2570 
IFFD=OTHENPRS=DSS(8):NT 
=] :GOSUB2570 
IFFDTHENPRS=DSS$ (9) :NT=0 
:GOSUB2579 
GOSUB2319: IFPL=1] 5THEN3@ 
8 
IF(PL=18)OR(PL=19)THENG 
OTO300 
IFPL=] 7THENGOTO160 
IF (PL=16 )AND(FD=@ )THEN3 
20 
IFPL=] 6ANDFD=0THEN 328 
IFPL=] 6THEN45@ 
IF PL=]1THENPRS=DS$(19):G 
OSUB2576 
IF(PL=3 )OR(PL=6 )THENGOS 
UB9080:GOTO340 
IF PL=7ANDNT=0THENPRINT" 
I SEE NO NOTE HERE!":Go 
T0340 
IFPL<>7THEN 340 
PRS="THERE IS A QUESTIO 
N ON THE NOTE.":GOSUB25 
70 
GOSUB132@: IFWR=1THENGOT 
0160 
PRS=DS$(12):GOSUB2570:P 
RS=DSS (13 ):GOSUB25790:FD 
=) :MB=0:GOTO340 
GOSUB79@: PRINT" {CLR} 
{7 DoWN]"; 
PRS="A TRAP DOOR OPENS 
{SPACE]}BENEATH YOUR FEE 
T AND YOU BEGIN SLIDING 
DOWN A " 


PRS=PR5+"CHUTE. YOU PAS 





499 
589 


581 
305 


586 
51a 


920 
538 


546 
559 
560 


570 


580 
599 


600 
6)8 


620 
630 


S A NEON SIGN THAT SAYS 
:":GOSUB2570: PRINT 
IFCC=48THENSOS5 
PRINT"{4 SPACES}'MATH D 
UNGEON'":PRINT: PRINT" 
{6 SPACES] 'LEVEL "+STRS 
(LV)+"'" 
PRINT: PRINT: GOTOS1O 
PRINT"{1) SPACES} ‘MATH 
{SPACE}DUNGEON'" 
PRINT:PRINT"{13 SPACES] 
'LEVEL "+STRS(LV)+"'" 
PRS="PRESS ANY KEY TO C 
ONTINUE" :GOSUB257@6: PRIN 
T: PRINT 
GETAS: IFAS=""THEN52@ 
LT=1 : PX=INT (RND(1)*10)+ 
1:PY=INT(RND(1)*10)+1:F 
L(PY, PX)=2 
GOSUB7998:CM(9)=).:FORI=). 
2T019:CM(I)=1:NEXT:CM(9 
)=LT:CM(22 )=1 
IFFL(PY, PX )=2THENPRINT" 
{CLR}":PRS=DS$ (14):GOSU 
B2570 
IFFL(PY,PX)=) THENPRINT" 
{CLR}":PRS=DSS$(15):GOSU 
B2570 
IFLT=]) THENPRS=DS$(16):G 
OSUB2570 
GOSUB2310 
IF PL=9THENGOSUB958:GOTO 
580 
IF PL=] 2THENGOSUB970:GOT 
058¢ 
IF PL=1 3THENGOSUB10@0:GO 
TO580 
IF PL=] 5ANDLO=@THEN550 
IFPL=). 5ANDLO=] THENGOSUB 
1920:GOTO570 


68 IFPL=lL4THEN589 


650 
660 
670 
680 


696 
790 


710 
729 


730 
746 
759 


75). 


755 
7628 


7708 


786 


796 


. 889 


818 


B26 


IF PL=22THENGOSUB2478:GO | 


T0676 


IP PL> 1] STHENGOSUBI] 560; IF 


(LO=0 )OR(WA=1 )THEN58@ 
ONZGOSUB1860, 1860, 2000 
GOTO6 76 

END 

PRINT" {CLR} (9 DOWN] ":IF 
CC=490THENPRINTTAB(19);: 
GOTO728 

PRINTTAB(1); 


PRINT" {4 SPACES}MATH DU | 


NGEON[3 SPACES)":PRINT" 
(DOWN) ":IFCC=49THENPRIN 
TTAB(12);:GOTO749 
PRINTTAB(3); 

PRINT"A MATH ADVENTURE" 
PRINT" {HOME}][{21 DOWN]": 
IFCC=49THEN755 

PRINT"{3 SPACES}ENTER D 
ESIRED[)@ SPACES]}LEVEL( 
1-5)"+:GOTO760 

PRINT"{3 SPACES]ENTER D 
ESIRED LEVEL(1-5)"; 
INPUTLV: IFLV<lLORLV>5THE 
NGOTO75@ 
FORI=1TO22:READCMS(I):N 
EXT:FORI=1T05:READINS (I 
):NEXT 
FORI=1T029:READDSS(I):N 
EXT:RETURN 
FORI=)1T0O22:CM(I)=08:NEXT 
I: IFIN(5 )=1THENCM( 20 )=1 
: RETURN 


IPFPL=2ANDGT=) THENPRS="T 


HE GATE IS ALREADY OPEN 
-" +GOSUB2570 
IFPL=2ZANDGT=98THENGT=1:P 
RINT"OK." 
IFPL=5ANDGT=9THENPRS="T 
HE GATE IS ALREADY CLOS 
ED.":GOSUB2576 





BF 830 


CM 849 
858 


KD 8686 


IF PL=5ANDGT=) THENGT =@ : P 
RINT"OK." 

RETURN 
IFPL=lANDFD=]THENPRS="T 
HE DOOR IS ALREADY OPEN 
.":GOSUB 2579 
IFPL=lANDFD=@THENFD=1 :P 
RINT"OK." 





XM 870 IFPL=4ANDFD=0THENPRS="T 
HE DOOR IS ALREADY CLOS 
ED.":GOSUB257@ 

QG 880 IFPL=4ANDFD=1THENFD=0:P 
RINT"OK." 

SX 8998 RETURN 

KG 990 IFPL=3ANDMB=1THENPRS="T 
HE MILKBOX IS ALREADY oO 
PEN." :GOSUB257¢ 

PM 910 IFPL=3ANDMB=O0THENMB=1:P 
RINT"OK.":CM(7)=1 

KS 928 IFPL=6ANDMB=@THENPRS="T 
HE MILKBOX IS ALREADY C 
LOSED.":GOSUB25798 

PM 930 IFPL=6ANDMB=1THENMB=9: P 
RINT"OK.":CM(7 )=6 

GA 948 RETURN 

KH 950 IFIN(1)=l1THENPRS="YOU A 
LREADY HAVE THE LIGHT." 
:GOSUB25/0: RETURN 

AB 960 IFLT=lLTHENLT=@:IN() )=1: 
PRINT"OK.":CM(9 )=6: RETU 
RN 

GG 970 IFIN(1)=@8THENPRS="YOU D 
O NOT HAVE A LIGHT.":GO 
SUB2570:RETURN 

RD 986 IFLO=8THENPRINT"OK.":LO 
=] :RETURN 

DI 998 IFLO=]1THENPRS="THE LIGH 
T IS ALREADY ON.":GOSUB 
2578:RETURN 

| AG 18000 IFLO=O8THENPRS="THE LIG 
HT IS ALREADY OFF.":GO 
SUB2570:RETURN 

RP 1010 IPLO=1THENPRINT"OK.":L 

0=6 : RETURN 
AB 1020 PRINT"{CLR}"pDS$(16-FL( 
PY,PX)) 

KD 1830 EC=PX+1:DNS="EFAST":IFE 
C=L1LTHENGOTOL@5a 

RF 1640 IFFL(PY,EC)<>8THENGOSU 
B1126 

SS 1858 WC=PX-1:DNS="WEST":IFW 
C=8THENGOTO197¢& 

AG 1060 IFFL(PY,WC)<>@THENGOSU 
B1120 

FF 1070 NC=PY=-1:DNS="NORTH":IF 
NC=0THENGOTO] O90 

BE 1880 IFFL(NC, PX)<>@THENGOSU | 
B1129 

HS 1098 SC=PY+]:DNS="SOUTH":IF 
SC=LITHENGOTO11I19 

BH 1180 IFFL(SC, PX)<>S8THENGOSU 
Bll2¢ 

CE 1110 RETURN 

FR 1128 PRINTDNS" IS A DOORWAY 
.":RETURN 

KG 1130 IPGK=@ANDBK=SANDRK=O0TH | 
ENPRINT"WHAT KEY?":RET | 
URN 

QM 1146 PRINT"OK." 

FP 1158 IFGKTHENGK=0:1IN(2)=1:R 
ETURN 

GH 1160 IFBKTHENBK=@:1IN(3)=1:R 
ETURN 

GA 1178 IFRKTHENRK=@:IN(4)=21:8 
D=2:RETURN 

FM 1188 RETURN 

SX 1198 IFGD<>1THEN1226 

GS 1200 IFIN(2)=@THENPRS=DS$ (1 

8):GOSUB2570: RETURN 

DA 1218 IFIN(2 )=1THENPRS=DSS$ (2 

7):GOSUB2570:MA=1:CM(1 
1 )=1:CM(1 )=0:RETURN 
QR 1220 IFBD<>1THEN1250 
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CB 
OK 
JJ 
DE 


MG 


CA 
JJ 


MB 





FF 


1230 


1246 


1250 


1260 


1276 


1280 
1290 


1306 


1310 
1320 
1346 


1350 
1366 


lava 
1380 


1396 


1395 


1406 


1416 


1426 


1425 


1430 
1440 


1456 


1455 


1460 


14708 


1488 


1496 


1586 


1505 


1506 
1516 


1526 


1530 
1540 


1558 


1568 


1570 


IFIN(3 )=@OTHENPRS=DsS (1 
@):GOSUB2578:RETURN 
IFIN(3 )=LTHENPRS=Ds$ (2 
8):GOSUB2578:CM(8)=1:R 
K=1:CM(] )=@: RETURN 
IFRD<?1THEN] 280 
IFIN(4)=@6THENPRS=DSS (1 
@®):GOSUB2570: RETURN 
IFIN (4 )=lLTHENPRINT" 
{CLR} ":PRS=DS$(29):Gos 
UB2576:GOSUB2520 

RET URN 

G=INT (RND().)*LV*18)4+1: 
PRS="YOU HAVE FOUND "+ 
STRS(G)+" GOLD PIECES. 


GOSUB2570:GP=GP+G: PRS= 
"VOU NOW HAVE "+STRS(G 
P)+" GOLD PIECES.":GoOS 
UB2570 

CM(18)=8:RETURN 
OP=INT(RND(J )*4)+1 
IF(LV<=2 )AND(OP>=3 ) THE 
N1320 

PRINT"WHAT IS..."; 
ONOPGOTO)] 370, 1400,1430 
, 1460 

X=INT (RND(1)*LV*10):Y= 
INT (RND(1)*LV*10) 
IFLV>4THENX=X-INT (RND( 
1)*LV*5 ):Y=Y-INT (RND(1 
)*LV*5) 

ZlL=XN+¥:PRINTX" + "¥"?" 
: INPUTZ$:GOSUBL51@: IFW 
R=2THEN]390 

RETURN 

X=INT (RND(1 )*LV*10):Y= 
INT(RND(1)*LV*1.0) 
IFLV<=3THENIFY>XTHENT= 
X:X=eY:Y=T 
Zl=X-Y¥:PRINTX" -— "y"?" 
: INPUTZ$:GOSUB1510: IFW 
R=2THEN]420 

RETURN 

X=INT (RND(1.)*LV*5 ):Y=I 
NT (RND(1)*LV*5) 
IFLV>=4THENX=X-INT (RND 
(1)*LV*2):Y=Y-INT (RND( 
1)*LV*2) 

ZL=X*Y: PRINTX" * "¥"?" 
: INPUTZ$:GOSUB1516: IFW 
R=2THEN).45¢ 

RETURN 

X=INT (RND(1)*LV*5):Y=I 
NT(RND(1)*LV*5) 
IFLV>=4THENX=X-INT (RND 
(1) *LV*3):Y¥=Y-INT (RND ( 
1)*LV*3) 

IFY=9THENY=] 
Z1=X/Y:IFZ1<>INT(Z1)TH 
EN1460 

PRINTX" / "Y¥"?"sINPUTZ 


3 

GOSUB151@: IFWR=2THEN) 4 
90 

RET URN 
IFVAL( ZS ) <> @THENZ2=VAL 
(ZS ):GOTO1549 

IFZ$<> "@"THENPRS="ANSW 
ER THE QUESTION FIRST! 
";GOSUB2570:WR=2:RETUR 
N 

Z2=VAL(2ZS ) 

IF2Z1=2 2THENPRINT" {CLR} 
CORRECT! !":WR=0: RETURN 
PRINT" {CLR) INCORRECT! ! 
":WR=1:RETURN 

WA=0: IFLO=@THENPRS="I' 
D TURN ON MY LIGHT FIR 
ST.":GOSUB2570:GOTO16) 
@ 


C=ABS(PL=18)-ABS(PL=19 | 
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1580 


1596 


1600 
1610 
1626 
1625 


1630 


1646 


1656 
L660 


1670 
1680 
1690 
1780 


1710 
1728 


1738 


1740 


1756 


1760 


1770 
1780 


1790 


1800 


1.81.0 
1820 


1830 
1840 
1856 
1860 
18798 
1.880 
1890 
1900 


1910 
1926 


1930 
1948 


):D=ABS ( PL=17 )-ABS (PL= 
16):TX=PX+C: TY=PY+D 
IFTX=1 ]LORTX=@ORTY=lL10R 
TY=O8THENPRINT"THERE IS 
A WALL THERE." :WA=1:G 
OTO1618 
IFFL(TY, TX)=@THENPRINT 
"THERE IS A WALL THERE 
»" sWA=1:GOTO16)8 
PX=TX:PY=TY 
Z=FL(PY,PX):RETURN 
FORI=l1TO1L@:FORJ=1TO1G: 
FL(I, J)=6:NEXTJ:NEXTI 
NM=INT (RND(J.) *18)+LV:I 
=] 
X=INT (RND(1)*1@)4+1:Y=I 
NT(RND(1)*10)+1:IFFL(Y 
,X)=3THEN1630 
FL(Y,X )=3:I=I1+1:IFI<=N 
MTHEN163@ 
FORI=1TONM*2 
X=INT (RND(1)*10)+1:Y=I1 
NT (RND(1)*18)+1 
IFFL(Y,X)=3THEN16660 
FL(Y,X)=08:NEXTI 
FORI=1T010:FORJ=)TO)O 
IFFL(1I,J)=3THENGOSUBL7 
BW 
NEXTJ: NEXTI 
GOSUB]1840:GX=X:GY=Y:IF 
(BX=XANDBY=Y )OR(RX=XAN 
DRY=Y )ORFL(Y¥,X)=9THEN). 
720 
GOSUB1840:BX=X:BY=Y: IF 
(GX=XANDGY=Y ) OR (RX=XAN 
DRY=Y )ORFPL(Y, X)=O8THEN]). 
738 
GOSUB]840:Xl=X:Yl=Y:IF 
(X2=XANDY2=Y )OR(X3=XAN 
DY 3=Y)ORFL(Y,X)=O0THEN] 
746 
GOSUB1840:X2=X:Y2=Y: IF 
(X1L=XANDY1=Y )OR(X3=XAN 
DY3=Y )ORFL(Y, X)=@THEN]. 
750 
GOSUB]1840:X3=X:Y¥3=¥: IF 
(X]=XANDY1=Y )OR(X2=XAN 
DY2=Y )ORFL(Y,X)=0THEN] 
76¢ 
RETURN 
FORK=JTO1@:GOSUB]1800:N 
EXTK:FORK=JTOISTEP=-1:G 
OSUB1800 :NEXTK 
FORK=ITO1@:GOSUB1 820:N 
EXTK:FORK=ITOJSTEP=-1:G 
OSUB1820:NEXTK: RETURN 
IFFL(1I,K)#=OTHENFL(I,K) 
=INT(RND(1)*2)+1 
RETURN 


IFFL(K,J)=Q9THENFL(K,J) | 


=INT(RND(1)*2)+) 
RETURN 

X=INT (RND(1)*10)4+) :Y=I 
NT (RND(1)*10)+1):IFFL(Y 
,X)=8THEN) 849 

RETURN 
GOSUB790:FORI=12T019:c 
M(I )=1:NEXT:CM(22 )=) 
PRINT" {CLR} ":PRS=DS$ (1 


6-2Z):GOSUB25790:IFLO=l1T | 


HENGOSUB1636 
GOSUB2270:GOSUB2 200 
GOSUB23).0: IFPL=] 5ANDLO 
THENGOSUB1®O20:GOTO188O 
IFPL=20THENGOSUB2850:G 
OTO1890 

IFPL=] 5ANDLO=9THEN187¢ 
IFPL=] THENGOSUBI]196:GO 
TO1899 

IFPL=] 4THEN1896 
IFPL=1]) THENGOSUB2490:G 
OTO1 896 





1956 
1968 


19768 


| 1988 


2006 
2018 


2020 


2030 


2848 
2050 
2060 
2070 
2080 
2090 
2180 
2116 
2126 
2136 
2140 
21.58 
2160 
2178 
2189 


2198 
2290 


2210 


22260 


2230 
2240 
2256 
2268 
2270 
2289 


2290 


2300 
2318 


2326 
2336 


2340 
2358 


IF PL=8THENGOSUB1130:GO 
TO18908 
IFPL=22THENGOSUB2470:R 
ETURN 
IFPL>15THENGOSUBJ) 566:1 
F(LO=0 )OR(WA=1 )'THEN]89 
0 

RETURN 

GOSUB798:FORI=) 8@TO19:C 
M(I )=1:NEXT1I:CM(22)=1 
PRS=DS$(23):GOSUB2570: 
PRS=DSS (24):GOSUB25790: 
GOSUB132@0: IFWR=0THENGO 
TO2058 

GP=0: PRS=DS5(25):GOSUB 
2570:FORW=1TO2800:NEXT 
W 
X=INT(RND(1)*10+1):Y=I | 
NT (RND(1)*10)4+1:IFFL(Y 
,X)=8THEN26386 
PX=X:PY=Y:Z=FL(PY, PX): 
RETURN 
PRS=DS$(26):GOSUB257@: 
FL(PY, PX)=2 
PRS=DS$(14):GOSUB2570: 
IFLOTHENGOSUB). 030 
GOSUB2279:GOSUB2200 
GOSUB2319 

IF PL=20THENGOSUB2858:G 
OTO2080 

IFPL=] 5ANDLOTHENGOSUB1 
820:GOT02070 

IF PL=] 5ANDLO=0THEN2060 
IFPL=)4THEN2080 

IF PL=11]1THEN2490:GOTO20 
8a 
IFPL=8THENGOSUBJ.130:GO 
TO2080 

IF PL=1THENGOSUB1198:GO 
TO2089 

IF PL=] STHENGOSUB1299:G 
OTO2080 | 
IFPL=22THENGOSUB2470:R 
ETURN 

IF PL>]) 5THENGOSUB1L5690:I1 
F(LO=@0 )OR(WA=1 )THEN208 
4] 

RETURN 

IF (X]1=PXANDY1=PY )ANDGD 
<> 2THENPRS=DSS (17):GOS 
UB2578:GD=] :CM(1)=1 

IF (X2=PXANDY2=PY )ANDBD 
<> 2THENPRS=DS$(19):GOS 
UB2578:BD=1:CM(1)=1 

IF (X3=PXANDY 3=PY ) ANDRD 
¢> 2THENPRS=DSS$ (18):GOS 
UB257@:RD=1:CM(1 )=1 
IF(X1<>PXORY1 <>PY)ANDG 
D<> 2THENGD=0 

IF (X2 <>PXORY2 <>PY)ANDB 
D<> 2THENBD=0 
IF(X3<>PXORY3 <> PY )ANDR 
D <> 2THENRD=0 

RETURN 
IFBX=PXANDBY=PYANDIN (3 
)=98THENPRS=DS§$ (21):GOS 
UB2578:BK=):CM(8)=1 
IFGX=PXANDGY=PYANDIN (2 
)=3THENPRS=DS$(28):GOS 
UB2570:GK=1:CM(8)=1]. 
IFRX=PXANDRY=PYANDIN (4 
)=OTHENPRS=DS$§ (22 ):GOS 
UB2570:RK=1 :CM(8)=1 
RETURN 

INPUTCS: PL=@:FORI=l1TO2 
2: IFCMS (I )=CSTHENPL=I: 
I=23 

NEXT 
IFPL=@8THENPRINT"YOU CA 
N'T DO THATI":GOTO2310 
NS="";I=). 
TS=MID$(C$,1,1) 








HR 


AK 


SP 
RC 
KF 


CM 


FQ 


DS 


2366 
2376 


2380 
2396 


2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 


2486 
2496 


2500 
251.8 


2520 


2530 


2540 


2550 
2560 
2570 
2580 
2590 
2600 
2618 
2620 
2630 


2646 
2656 


2660 


2670 


2680 


2690 


27008 


271.0 


IFASC (TS )=32THENL=1:GO0 
TO2390 
IFI=LEN (CS )THENGOTO241 
a 

I=I+] :GOTO2350 
NS=MIDS$(CS,L+1, LEN(CS) 
) 


IFCM(PL)=@THENPRINT"I 
{SPACE]}SEE NO "NS" HER 
E!l":GOT02319 
IFCS="INV"THENGOTO2430 
RETURN 
PRINT" YOU ARE CARRYING 
FORI=1T05:IFIN(I)=l1THE 
NPRINT"A "INS(L) 
NEXTI: IFGP<>OTHENPRINT 
GP" GOLD PIECES." 
RETURN 
PX=INT (RND(1)*10@)+1;:PY 
=INT(RND(1)*10)+1: IFFL 
(PY, PX )=3THEN2470 
Z=FL(PY,PX):RETURN 
IFIN (5 )=) THENPRS="YOU 
{SPACE])ALREADY HAVE TH 
E MAPI":GOSUB2570:RETU 
RN 
IFMA=QTHENPRINT"WHAT M 
AP?";:RETURN 
PRINT"OK.":IN(5)=) sMA= 
@:CM( 20 )=1:GD=2:RETURN 
PRS="{2 DOWN] YOU HAVE 
{SPACE]FOUND YOUR WAY 
({SPACE]}OUT OF THE MATH 
DUNGEON. “:GOSUB2570 
PRS="(DOWN} {2 SPACES}Y 
OU HAVE WON "+STRS(GP) 
+" GOLD PIECES IN YOUR 
JOURNEY. ":GOSUB2579 
PRINT" {DOWN} PLAY AGAI 
N";:INPUT AS 
IFAS="Y "THENRUN 
END 
IFLEN (PRS) <=CCTHENPRIN 
TPRS:RETURN 
TS=MIDS(PRS,CC,1):IFAS 
c(TS )=32THENI=CC:GOTO2 
6290 
I=cc-] 
TS=MIDS(PRS,I,1):IFASC 
(TS )=3 2THENGOTO2620 
I=I=-] :GOTO2600 
AS=MIDS(PRS,1I+1,LEN(PR 
$)):BS=MIDS(PRS,1,I-1) 
: PRINTBS 
IFLEN (AS )<=CCTHENPRINT 
AS:RETURN 
PRS=A$:GOT025790 
DATAOPEN DOOR,OPEN GAT 
E,OPEN MILKBOX, CLOSE D 
OOR,CLOSE GATE,CLOSE M 
ILKBOX 
DATAGET NOTE,GET KEY,G 
ET LIGHT, GET GOLD, GET 
{SPACE]}MAP, LIGHT ON, LI 
GHT OFF, INV 
DATALOOK,N,S,E,W,MAP,M 
AP, ALGEBRA, LIGHT, GREEN 
KEY, BLUE KEY,RED KEY, 
MAP 
DATAYOU ARE FACING NOR 
TH. A GATE IS IN FRONT 
OF YOU.,THE GATE IS Oo 
PEN. 
DATATHE GATE IS CLOSED 
.,YOU ARE IN A DENSE F 
OREST. 
DATAYOU ARE IN FRONT oO 
F AN OLD HOUSE. THERE 


{SPACE}IS A MILKBOX BY 


THE DOOR. 


DATATHE MILKBOX IS CLO 





EC 


HM 


KD 


BF 


MG 


AR 


| QA 


AF 


FS 


QD 


CF 


MS 


SF 


HH 


xC 


HS 


BF 


DJ 


GJ 


SE 


KD 


KS 


GP 


2720 


2730 


2740 


2750 


2760 


27/70 


2780 


2/790 


2800 


2810 


2820 


2830 


2840 


2856 


2860 


2876 


2880 


2890 


2900 


SED.,THE MILKBOX IS OP 
EN., THE DOOR IS CLOSED 


DATATHE DOOR IS OPEN., 

THE DOOR IS LOCKED. YO 
U DO NOT HAVE THE RIGH 

T KEY. 

DATATHERE IS A NOTE IN 
THE MILKBOX.,THE DOOR 
FLIES OPEN WITH A BAN 


Gi 


DATATHE NOTE DISAPPEAR 
S AND THE MILKBOX CLOS 
ES. 
DATAYOU ARE IN A COLD 
{SPACE]AND DAMP ROOM., 
YOU ARE IN A LONG AND 
[SPACE] NARROW HALLWAY. 
DATATHERE IS AN UNLIT 
{SPACE}LIGHT HERE.,THE 
RE IS A GREEN DOOR HER 
E. 
DATATHERE IS A RED DOO 
R HERE., THERE IS A BLU 
E DOOR HERE. 
DATATHERE IS A GREEN K 
EY HERE., THERE IS A BL 
UE KEY HERE. 
DATATHERE IS A RED KEY 
HERE.,BEFORE YOU CAN 
{[SPACE}GET A GOOD LOOK 


AT THE AREA.. 
DATAA MONSTER JUMPS OU 
T AND SAYS ‘YOU MUST A 


NSWER THIS QUESTION! 
DATA'NOW I'LL TAKE ALL 
YOUR GOLD AND TRANSPO 
RT YOU AWAY! 
DATATHE MONSTER DISAPP 
EARS.{17 SPACES}YOU SE 
E SOME GOLD HERE! 
DATATHERE IS A MAP HER 
El,THERE IS A RED KEY 
(SPACE] HERE! 
DATATHERE IS A SUDDEN 
{SPACE} FLASH AND YOU F 
IND YOURSELF AMIDST SO 
ME TREES. 
IFIN(5 )=@THENPRINT" YOU 
DON'T HAVE A MAPI":RE 
TURN 
PRINT" {CLR]": PRINT 
FORI=1T010: TB=1:FORJ=] 
TO1e 


IFI=PYANDJ=PXTHENPRINT 


TAB(TB)"{GRN}*";:GOTO2 
930 
IFFL(1I,J)=3THENPRINTTA 
B( TB) "{BLK]M";:GOTO293 
6 


IFFL(I,J)=2THENPRINTTA 
B(TB)"{BLU) R";:GOTO293 
a 


IFFL(1I,J)=)THENPRINTTA 


B(TB)"{PUR}H";:GOTO293 
i) 

PRINTTAB(TB)"{RVS} 
{(YEL} {OFF}"; 
TB=TB+2:NEXTJ: PRINT: PR 
INT:NEXTI 
PRINT" {BLU} ":RETURN 


BEFORE TYPING... 
Before typing in programs, please 


| refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 








Laser Chess 
Version by Bill Chin, Editorial 
Programmer 
See instructions in article on page 6 | 
before typing in. 


8801:0B 
8809: 3) 
6811:bD6 
@819:02 
6821:20 
O0829:FF 


| 0831:09 


0839:D0 
0841:85 
0849:85 


| 0851 :B) 


0859:9), 


O8861:D9 | 


O8869:FD 
O@B71:F4 
0879:98 


| 6881:0B 


9889:0) 
OB91:FO 
0899:8D 


O@BA1:A9 


OBA9:A2 
@8B1:15 
BS8B9:AD 
O68C1:FoO 
88C9:3) 
88D1:AB 
@8D9:B8 
O8E1:c9 
BBE9:4C 
OSF1:FE 
BEF9:FE 
H991:E6 
89089:9D 
O911-:A9 
H919:E0 
0921:3F 


| 9929:FB8 


0931:58D 
8939:cB8 
0941:7D 
6949:BD 
9951:17 
6959:CE 
6961:8D 
0969:A9 
0971:A9 
60979:20 
8981:FO 
0989:20 
G8991:A9 
8999:10 
B9A1:24 
O99A9:2) 
09B1:66 
89B9:24 
89C1:01 
69C9:DE 
89D1:AD 
89D9:24 
O89E1:8D 
689E9:c8a 
O9F1:A3 
H9F9:5F 
BAG): 8) 
G8AG9:23 
BA11:AD 
8A19:298 
8A21:C8 
8A29:CB 
@A31:DC 
8A39:C8 
8441:8D 
BA49:A9 
BA51:18 
9A59:02 


Os 
a) 5) 
8D 
20 
LE 


BA 
a) 6) 
20 
ce 
AB 
2) 
a4 
16) 
AY 
AQ 
FO 
20 
FO 
FO 
68 
D5 
AA 
16 
O7 
ca 
8D 
AQ 
20 
C8 


6] 4) 
a) 4) 
DA 
OA 
AS 
c8 
cé8 
8D 
Co 
18 
O4 
FD 
17 
O7 
29 
20 
BE 
ca 
20 
A9 
31 
BS 
338 
FS 
CB 
16 
23 
cB 
AD 
E6 
cg 


32 
OO 
OF 
78 
FO 
7B 
Q7 
C8 
FE 
FC 
19 
20 
AQ 
EC 
88 


, 9 


16 
06 
BA 
8D 
8D 
2A 


20 


DE 
AQ 
A2 
cy 
03 


20 


DG 
DO 
FB 
Li 
2 
EO 
cy 
EO 
CB 
cB 
47 
9D 
C8 
@2 
D2 
BD 
20 
8D 
cB 
4c 


C3 


CE 
23 
AQ 


- AD 


20 
3] 

LE’ 
EE 
bd 
AD 
C& 
58 
21 
22 
AQ 
20 
ca 
CB 
FF 
23 
ca 
60 
8D 
AQ 
28 
83 


30 


36 
2) 

86 
18 
AQ 
A9 


> 21 


S14) 
CE 
a) 5) 
ac 
88 
9). 


; DS 


EC 
4c 
49 
FO 
a3 
C8 
cg 
20 
OF 
c9 
9D 
4C 
Dd 
85 
9 
E6 
A5 
G2 
Bd 
FS 
E8 
A2 
De 
8B 
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2E 
3B 
29 
73 
36 
FB 
DB 
1¢ 
1F 
33 
77 
33 
B2 
4F 
78 
4 
F5 
EC 
V2 
BA 
80 
BA 
BA 

33 
2D 
o7 
Fl 
4 
DD 
4E 
3F 
65 
84 
B3 
58 
72 
21. 
DE 


» DF 


FF | 
22 
31 
Bo 
ce 
EO 
4D 
CB | 
4F 
7F 
TE 
FO 


“Fé 


9c 
OF 
9A 
15 
43 | 
99 
AD 
79 
CF 
FQ 
BG 
BS 
14 | 
29 
IF 
9c 
4B 
55 
F5_ 
OF 
14 
E8 
BF 
aC 








B8A61:D6 
BA69:A9 
BAT1:CE 
HBAT9I:FO 
| GA81:De 
8A89:A9 
BA91:8D 
BA99:FA 
BAA1L: OA 
BAAQI: D4 
BABL:F2 
BAB9I:04 
68AC1:18 
BACS:FA 
| 6AD1:8D 
| BAD9:68 
BAE1:a0 
BAE9:19 
BAFI:lE 
OAF9: 20 
O0B81:A9 
8BB9:FB 
O6Bl11:FO 
0B19:14 
8B21:18 
O0B29:04 
| OB31:AD 
| @B3I9I:BA 
08B41:04 
8B49:A9 
6851:8D 
@B59;:29 
@B61:16 
8B69:02 
0B71:08 
@B79:DD 
| 8B81:53 

8B89:9D 
0B91:06 
8B99:Co 
G@BAL:E8 
| 6BA9:BD 

@BBL:F7 
6BB9:60 
6BC1:80 
8BC9:C4 
G8@BD1L:FO 
8BD9:99 
OBE1:DA 
G@BE9: 2) 
| @BF1:C8 
| OBFY: 2) 
@CO1:8D 
8CB89:CB 
6C11:00 
| 8C19:25 
gC21:20 
O8C29:FD 
@C31:AD 


0UC39:D0 . 


@C41:AD 
0c49:85 
8C51:00 
8c59:bDea 
@C61:AD 
gc69:85 
6C71:9) 
O8C79:FD 
80C8) :A8 
0c89:3) 
8C91:FD 
0C99;:28 
H8CAl:FD 
BCA9: 20 
6CB1:0C 
O8CB9:FD 
@CC1]1:FB 
gcc9:69 
O6CD1:29 
8cCD9:60 
@CE1:7F 
OCE9:FF 
O6CF1:8C 
OCF9:AD 
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8D@81:8D 
8pa9:ac 
8D11:0A 
8D19:23 
0D21:A8 
O0D29:89 
0D31:686 
0D39:8D 


0D41:0B 


0D49:18 
8D51:C8 
8D59: 28 
8D61:8D 
@D69:2A 
@D71:c8 
O0D79:35 
@D81:6D 
8D89:cB 
0D91:C8 
8D99:2B 
O8DA1:988 
ODA9:2E 
O@DB1:2E 
O8DB9:35 
@DC1:8D 
opc9:c9 
@8DD1:8D 
ODD9:c9 
O8DE1:08 
ODE9:Ce 
O6DF1:c9 
ODF9:2E 
BEO1L:2E 
@EO9:35 


| 8E11:8D 


8E19:c9 
@E21)1:37 
8E29:Cc8 
8E31:2F 
HE3I9:0A 
8E41:18 


| GE49:2F 


8E51:35 
@E59:AD 
@E61:AD 
8E69:CB 
8E71:C8 
8E79:C8 
8E81:32 
OE89:CB 
8E91:C8 
8E99:8D 
G8EA1:9A 
DEAS: 60 
GEB1:CcB 
BEB9:E3 
8EC1:8C 
BEC9:24 
@ED1:8D 
BED9S:cs 
BEE1:17 
G@EE9:05 
OHEF1:16 
BEFOI:FS 
OFO1:20 
OFO9: 20 
OF11:4E 
BF19:AD 
O0F21:4C 
O@F29:OF 
@F31:16 
OF39:08 
OF41:17 
O@F49:8D 
OBF51:A9 
@F59:4E 


OF61:1B 


OBF69;:Be8 
OF /1:60B 
OF79:81 
OF81:41 
O8F89:c8 
@8F91:C8 
OF99:6D 


! @FA1:c8 


BO 


8D 


a9 


4c 
a5 
c9 
iby 
6] 6) 
18 
EQ 
60 
24 
AD 
cB 
AQ 
4A 


BD 


BA 
cy 
AD 
AD 
cs 
C8 
cs 
cg 
cg 
36 
2E 
37 
6D 
c9 
cy 
8D 
cB 
c9 
cg 
36 
2E 
c9 
8D 
c9 
35 
35 
c9 
cy 
2E 
2F 


8D 
8D 


8D 
CB 
8D 
8D 
69 
OA 
39 
8D 
cs 
O2 
CB 
C6 
AD 
20 
68 
10 
85 
2A 
O4 
FO 
FO 


E2 
} 4c 


4c 
OF 
cs 
15) 
Ba 
6B 
6) 

4). 
cs 
08 
cé& 
8D 


6D J. 


cB 
AD 
O2 


OB 





BFA9:0D 
OFB1: OF 
O8FB9:CcB8 
@FC1:0D 
OFC9:0F 
OFD1:36 
OFD9:FE 
OBFE1:0c 
@FE9;12 
OFF1:106 
OBFF9:8D 


| 1681:DA 
| 1889:AC 


1811:c8 
18919:A3 
1821:02 
1829:0A 
1031:A2 
1@39:AE 
1941:E8 
1649:03 
1951:683 
1959:0). 
1861:8D 
1869:39 
1071:02 
10979:36 
1881:AD 
1889:c8 
1991:23 


1899:8D 


J8A1:cé 
IOA9:81 
18B1:C8 
18B9:16 
16C1:68E 
16C9:12 
18D1:25 
18D9:3D 
IBE1:12 
1B6E9:05 
18F1:AD 
1OF9:Cc8 
1101:E4 
11689:Fe8 
1111:D4 
1119:C8 
1121:CB8 
1129:ED 
1131:29 
1139:Cc8 
1141:18 
1149:c9 
1151:F0 
1159:68 
1161:FE 
1169:11 


| 1171:B9 


1179:c8 
1181:4C 
1189:Do 
1191:AD 
2199:3D 
LIAL:11 
LIA9:AD 
11B1:00 
13.B9:4¢C 
11C1:F68 
11¢€9:62 
11D1:08D 
11D9: Da 
11E1:00 
11E9:DA 
11F1:c8 
L1IF9:4C 
1201:F0 


1209:25 | 


1211:¢9 
1219:A9 
1221:EE 
1229215 
1231217 
1239:03 
1241:3E 
1249:FO 


AY 
AQ 
38 
Ag 
AY 
cs 
Ag 
20 
C8 
cs 
34 
17 
12 
20 
8c 
4c 
18 
Cp 
03 
BE 
C8 
4c 
8D 
AD 
AD 
20 
C8 
gc 
8D 
C8 
07 
68 
4C 
AD 
AD 
AQ 
20 


AE 
AQ 
OF 
EO 


82 


E8 


co 


}) 
88 


5) 4) 


86 


cy 
4c 


DO 


26 


56 








1251:D8 | 


1259:AE 
1261:CA 
1269:48 
1271:46 
1279:A3 


L2B12:23 | 


1289:AD 
1291:¢c9 
1299:c9 


L2A1:CE . 


12A9:4C 
12B61:c9 
12B89:81 
12C1:24 


12C9:0A 


12D1:290 
12D9:@c 
12E1:AD 
12E9:c9 
12F1:CcB8 
12F9:26 
13601:62 
1309:82 
1311:9D 
1319:c9 
1321:AA 
1329:P8 
1331:51 
1339:CA 
1341:cB8 
1349:16 
1351:9C 
1359:24 
1361:26 
1369:Cc9 
1371:8¢ 
1379:FO 
1.381:B9 
1389:0D 
1391:74 
1399:28 
L3A1:FO 
13A9:CO 
13B1:8D 
13B9:19 
13¢€1:c8 
13€9:14 
13D1:14 
13D9:c9 
13E1:c3 
J3E9:c9 
13F1:38 
J3F9:BD 
1401:A9 
14099:68 
14) 1:E8 
1419:F¢O 
1421:77 
1429:08 
1431:83 
1439:63 
1441:¢c9 
1449:¢c9 
1451:¢C3 
1459:c9 
1461:63 
1469:63 
1471:c3 
1479:A9 
1481:04 
1489:0A 
1491:0A 
1499:8D 
14A1:0C 
14A9:38 
14B1:C9 


14B9:C9 


14C1:8D 
14¢09:c9 
14D1:c3 
14D9:8D 


14E1:8D 


14E9:C9 
14FP1:FD 





14F9:B1 
1591:41] 
1589:35 
1511:AC 
1519:Dd 
1521:AD 
1529:27 
1531:AD 
1539;:B9 
1541:FD 
1549:C8 
1551:De 
1559:cCB 
1561:27 
1569:AE 
1571:c3 
1579:83 
1581:14 
1589:69 
1591:9D 
1599:9D 
15Al1:ca 
15A9:18 
15Bl:1B 
15B9:19 
15C1:83 
15C9:C3 
15D1:28 
15D9:AC 
15E1:60 
15E9: 3). 
15P1:25 
15F9:48 
1601:c8 
1609:CA 
1611:06 
1619:22 
1621:12 
1629:63 
163):F6 
1639:9) 
1641:CE 
1649:9D 
1651:c8 
1659:AD 
1661:9D 
1669:E8 
1671:De 
1679:14 
1681:c9 
1689:c9 
1691:79 
1699:0B 
16A1:CB 
16A9:C9 
16B):04 
16B9: 20 


16C1:93 | 


16C9:0E 
16D1:CD 
16D9:cCD 
1L6E1:51 
L6E9:A2 
L6F1:EG 
L6F9:9D 
1761:c9 


1 1789:23 


1/711:99 
1719:D¢e 
1721:69 
1729:c9 
1731:41 
1739:8D 
1741:16 
1749:168 
1751:AD 
1.759:8D 


| 17612360 
| 1769:8D 


1771:De8 


| 1779:BD 


1781:c8 
1789:8D 
1791:c8 
1799:0B 


88 
Ag 
Ls} 3) 
AD 


9 O4 


cg 
AD 
85 
BD 
cy 
cg 
B4 


Pcs 


28 
BD 
BD 
BD 
23 
C3 
6D 
B9 
14 
14 
05 
C8 
9D 
9D 
31 
cs 
cB 
BD 
co 
AD 
E8 
6g 
EE 
81 
EO 
06 
41 
68 
38 
20 
c9 
23 
1D 
60 
B9 
79 
26 


Coe] 


30 
99 
60 
60 
gc 
60 
c9 
A2 
Da 
De 
ES 
57 
F6 
AD 


, C9 


45 
68 
cB 
42 
35 
6D 
90 
4B 
4) 

8D 
AQ 
8D 
AD 
3E 
99 
cB 
AD 
oc 
13 


F& 
AQ 


AE 
ce 
OD 
28 
60 
EE 
FD 


ca 


Bl. 

27 
4c 
28 
EE 
16 
BD 
BD 
B9 
ca 
18 
@5 
19 
FO 
AD 
2A 
9D 
9D 
AC 
16 
81 

CE 
EE 
BA 
EO 
E5 
AD 
8D 
AC 
BD 
De 
28 
20 
c9 
39 
20 
1.6 
EF 
20 
BD 
24 
45 
18 
FO 
24 
5] 

30 
ac 
29 
co 
c9 
co 
99 
E5 
ES 
C8 
5D 
AD 
Ccé 
Zin 
BA 
c8 
8D 
50 
8D 
8D 
DO 
@1 

57 
38 
@), 

cs 
EO 
ca 
2F 
26 
17 


17A1:AD 
L7A9:AD 
17B1:c8 
17B9:8D 
17C1:46 
17€C9:0A 
17D1:0A 
1.7D9:04 
L7E1:03 
17E9:083 
L7F1:63 
17F9:@2 
1881:83 
1869:068 
1811:986 
1819:88 
1821:04 
1829:63 
1831:62 
1839:04 
1841:64 
1849:06 
1851:62 
1859:09 
1861:02 
1869:04 
1871:84 
1879:1) 
1861:48 
1889:43 
1891:28 
1899:54 
18A1:4c 
18A9: 20 
186B1:44 
18B9: 20 
18C1:43 
18C9:08 
18D1:FE 
18D9:A6 
18E1:FE 
18E9:9) 
18F1:65 
1S8F9:AA 
1901:EF 
1999:FB 
1911:82 
191 9:E7 
1921:E7 
1929:AA 
1931:0A 
1939:18 
1941:FA 
1949:604 
1951:FA 
1959:03 
1961:FA 
1969:AA 
1971:FA 
1979:AA 
1981:9F 
1989 :AA 
1991:DF 
1999:03 
19A1:AP 
LOAS:F5 
19B1:AF 
19B9:F7 
19C1:AA 
19C9:F6 
19D1:AA 
19D9:16 
L9E1L:AP 
LIJES:AA 
19F1:07 
19F9: 9F 
JA@1:A9 
JAG9:07 
JA11:6A 
1A19:68 
1A21:67 
lA29:AA 
JA31:62 
1A39:14 
1A41:55 
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JA49:AA AA 86 AB AB OA FE FE 78 
JASI:FE FE 64 7F 5F 57 55 @8 48 
| JAS9:FE FE FE FE FE @3 55 55 Ag 
JA61:57 5F 7F 93 7F @D FA FA 5A 
JA69:06 AA AA 86 AB AB F5 FD F6 
JA71:86 55 55 55 DS F7 @3 57 EY 
JA79:5F 7F 1] FD F5 D5 55 04 F4 
JA8).:BF BF BF BF FD 07 55 55 85 
JA89:D5 F5 FD 83 BF BF BF BF 52 
JA9L:BF BE FB F7 FB F? FB 18 EF 
LA99:EA E6 A6 66 GA AA @O4 BF FD 
JAA]: 7F 7F BF 97 F9 FA FPA 95 94 
JAA9:BF BF AB 98 F9 FA FA F9 4F 
JAB) :04 66 AB BF BF 64 6F 12 Fl 
| JAB9:AA GA 66 A6 E6 63 BF 7F 57 
JACl:7F BF 89 EA FB F7 FB F7 25 
JAC9:FB 17 FE FE EA 05 GF AF 8B 
JADIL:AF F9 O7 99 EA FE FE 04 2C 
JAD9:6F AF AF 6F 05 D5 DF DF BD 
JAE1:DF DE DE DE @1 55 @1 EB D2 
JAEI:BE 04 57 F7 F7 F7 B7 B7 AF 
JAF1:B7 DE DE DF DF DF DF D5 A? 
LAF9:03 BE EB 82 55 81 BY B7 D2 
1BQ1:F7 B7 EV F? 57 O2 DS DF EB 
1.889:DE DE DE DE DE @) 55 @). D6 
IBL1:AA @2 FE AB O61 57 F7 F? @5 
1B19:B7 B7 F7 F7 DE DE DE DE A6 
1B21:DE DF D5 6). FB FE FE @3 66 
JB29:55 01] F/ F7 F?7 Bi Bi? Fi CE 
1B831:57 03 FE FE FE FE FE @3 9&8 
JB39:AA AA AA AA AA 63 BF BF 190 
15B41:BF BF BF @2 FE FE FE FE 58 
1549:FE 63 AA AA AA AA AA @3 18 
1B851:BF BF BF BF BF 05 FE FA 56 
JB59:EA EA EA 82 AA AA 88 2A 67 
1B61:2A @@ @3 BF AF AB AB AB 38 
JB69:EA EA FA FE 04 2A 2A 2A 66 
1JB71.:AA AA @3 AB AB AF BF O64 62 
1B79:00 60 66 OO BO BB BC ET AF 
1B81:88 12 94 96 LE E7 88 12 Bl 
1B89:94 68 12 97 88 86 B68 BG C9 
1JB91:12 64 88 12 94 88 OC 94 GE 
| 1B99:80 64 94 80 64 63 OO OO 59 
1BA]:80 86 74 BY EY 84 AS G2 32 
JBA9:64 B9 C4 14 A5 O64 E3 25 84 
1BB1:EO 88 88 B84 B88 BB BB BO 98 


Basketball Sam & Ed 


See instructions in article on page 
12 before typing in. 


OBS8E1:08 OF 17 208 
OBBE9:2E 2E 2E 8a 
| @BF1:GF B87 28 83 
| @8F9:GE 87 26 83 
@981:13 14 26 38 
0909:2E 08 2E 2E 
@911:0B 65 14 @2 
0919:13 01 BD 2a 
0921:2F 2E 2E OO 
0929:D8 AX BH BD 
0931:8D B® Oc Bp 
| 6939:20 D2 FF AQ 
8941:A9 BO A2 B5 
0949:10 FA AQ oa 
@951:CF 13 A9 @5 
@959:BB 12 20 A4 
@961:A9 81 BD OD 
8969:8D @p pc A9 
@971:28 51 16 AQ 
0979:A9 8) 8D 69 
6981:28 DO ADI OA 
80989:0F 8D 21 be 
| 6991:07 AD EO SD 
6999:8D 27 De AI 
@9A1:A9 88 BD 29 
@9A9:2A D@ AI BE 
@9B1:008 8D 2c De 
| @9B89:2E DO AD OB) 
| @9C1:AA OC BD B6 
@9C9:A9 OO SD AG 
Q89D1:A9 828 BD AB 
@9D9:A9 32 8D A7 
@9E1:B2 @c AQ 32 
| @9E9:B4 OC 20 75 
O@9F1:FD @7 8D FE 
O9F9:A9 86 85 61 
BAG1:85 64 AD B3 
OA99:20 50 OA 20 
0A11:85 62 AG 6 
BAl9:2A OA AQ BF 
@A21:20 50 BA 20 
@A29:0C 98 AA @A 
6A31:99 96 6c BD 
B8A39:98C 8D A5 OC 
@A41:BD F6 BA OD 
BA49:0C AS 6C 99 
@A51:64 18 69 32 
G8A59:00 85 GD A5 
@A61:61 GBA 26 6C 
OA69:18 69 18 85 
@A71:86 85 6D 60 
BA7T9:GE 9D O8 38 
BA81:88 38 9D cA 
BA89:9D O08 3B 9D 
@A91:3B 9D c@ 3B 
OA99:00 3c CA 10 
BAAL:6A GE 9D 98 
@AAS:CA EG FF be 
@AB1:C3 OA BC CF @ 
@AB9:20 DB @A AE 
@ACL:EE 6@ E) E3 
@AC9:EE E2? E3 EB 
| GAD1L:@1 @1 G1 1 
| GAD9:80 OO AZ HO. 
| @AE1:06 FB 26 FC 
BAE9:F7 CO OO DA 
BAF1:4C FR OD 9 
BAF9:08 10 20 40 
OHBHlL:F7 EF DF BF 
@B09:14 20 F7 12 
BBl1:A5 67 18 69 
@B19:68 69 88 85 
@B21:38 E9 @1 85 
@B29:00 85 68 90 
@B31:85 67 85 68 
0B839:609 A5 6B FO 
@B41:03 4c F7 OB 
0B49:65 85 61 A5 | 
| @851:62 A5 62 C9 
@B59:E3 OB 60 AQ 
OB61:AD 69 16 FO 
@B69:00 DC AD EI 
@B71:AD El OB 49 
@B79:16 AS 62 FO 
Q@BB1:E9 64 85 6) 


@889:85 62 A9 6) 8D E2 OB AD | 
@B91:El OB 49 FF 29 38 FA 18 
@B99:A5 62 C9 94 F@ 12 AS 6) 
BBAl:18 69 64 85 6) A5 62 69 
G@BA9:08 85 62 AI G2 BD E2 GB 
®BB1:AD El OB 49 FF 29 10 FO 
OBB9:1F E6 6B A9 96 85 67 AD 
@BC1:00 85 GA 85 68 85 66 AE 
®BC9:E2 OB BD DB @B 85 65 BD. 
®BD1:DE BB 85 69 46 66 66 65 
OBDI:EA 68 BO 32 32 BB BO BO) 
G@BE1:08 08 AD 94 85 62 AD OO 
@BE9:35 6) AQ BB 85 69 46 66 | 
GBF1:66 65 20 87 17 69 AS 6). 
@BF9:38 E5 65 85 6) A5 62 E5 
0C01:66 85 62 A5 62 C9 FA BO 
6C89:0) 68 AQ OG 85 6) 85 62 
@Cl1:A9 8) 85 69 46 66 66 65 
GC1.9:20 07 17 68 A5 6B FO 17 
| @C21:A5 6A FO 3D AS 63 18 65 
6C29:67 85 63 A5 64 65 68 85 
@C31:64 A5 64 C9 8B BB OB) 6B 
6C39:A9 87 85 64 AO BB 85 63 
@C41:A9 86 85 GA 46 68 66 67 
| 6C49:A5 67 4A 4A 4A 4A 4A 4A 
08C51:4A 65 68 85 6B 20 B87 17 
@C59:A5 65 05 66 FO G2 Cé6 65 
0C61:68 AS 63 38 E5 67 85 63 
@C69:A5 64 ES 68 85 64 A5 64 
6C71:C9 FA BO @] 68 AOI BO 85 
6C79:63 85 64 A9 Bl 85 GA 46 
@C8):68 66 67 28 B7 17 68 AB 
9C89:18 BI 95 BC 99 BB DB BB 
8C91:10 F7 68 BB BB BB BB 2B 
@C99:00 88 68 BG BB BB OO BO 
GCA1:00 06 BO BB BB BO BB BO 
G6CA9:08 BO BO BB BO BO BB oO 
O6CB1:00 O66 BO BB OB BB BO BA 
OCB9:88 86 BG A2 BA BD AG BC 
gccl:95 61 CA 10 F8 20 El FF 
@CC9:DS G6 AY 8) SD BD DC 6B 
@CD1:AD 8D 82 29 62 C9 G2 DO 
G@CD9:1B AD 8D G2 29 62 C9 B2 
@CE1:F@ F7 AD 8D G2 29 82 C9 
G@CE9:02 D® F7 AD 8D @2 29 62 
@CF1:C9 62 FO F7 EA AD 6) 17 
@CF9:F@ OD CE 61 17 AD 61 17 
@D@1:D8 65 AD BB BD B4 D4 A2 
8DO9:08 26 66 BB 20 3A OB 20 
@Dl11:1D OC A2 BB 26 B6 BB 20 
@D19:3A OB 28 1D BC A2 OB 20 
8D21:06 OB 20 3A @B 28 1D BC 
GD29:A2 GG 26 31 11 AG Bl 20 
6D31:58 OA 20 2A BA AB B2 20 
0D39:58 OA 26 2A BA A2 BA BS 
@D41:61 9D A6 OC CA 10 FB A2 
@D49:0A BD Bl @C 95 6] CA 10 
OD51:F8 A2 @1 28 86 BB 26 3A 
6D59:0B 26 1D BC A2 @l 20 86 
@D61:0B 20 3A SB 28 1D OC A2 
GD69:01 26 66 OB 26 3A GB 20 
@D71:1D @C A2 Gl 28 31 1] AG 
8D79:03 20 50 OA 26 2A BA AO 
9D81:04 20 58 BA 26 2A BA A2 
@D89:0A B5 6) 9D Bl BC CA 10 
@D91:F8 20 1) 88 20 88 BC 20 
0D99:2F 16 2@ 99 1] AD 69 16 
®@DA1:F@ 18 AD BB OC BD Be BC 
G@DA9:D0 16 8D 69 16 EE 3B 04 
@DB1:AD 3B 84 C9 B5 DB B3 4C 
SDB9:6A 16 AD 2E 19 18 69 16 
@DC1:8D 2E 19 DS G6 26 AA OF 
GpC9:28 OC 16 4C BC BC 20 FO 
GDD1:98D A® BO A2 3C 28 EB OD 
@DD9:20 EBS OD 28 ES OD CA CA 
@DE1:CA CA CA CA 18 EF 60 BD 
ODE9:008 CF 91 FB C8 E8 60 AG 
ODF1:3F BJ FB 99 @8 CF 88 16 
ODF9:F8 68 20 FB BD AB BO BI 
| GE@1:08 CF 48 BO 82 CF 99 OB 

®EG9:CF 68 99 62 CF C8 CB CB 
GE11:C@ 42 DO EB AG 3F BO BO 
GE19:CF A2 87 4A 26 FD CA 1@ 
| 8E21:FA AS FD 91 FB 88 16 EE 
| 8E29:608 BB OG BO BB BB GO AO 


Program 1: Basketball Sam & Ed 


@801:0C @8 BA BO JE 28 32 38 64 
'0@809:36 32 88 B88 BB 4c 25 O9 45 
-@811:A9 7F 8D @D pc AQ FF 8D 73 
@819:608 DC AD 11 pe 29 8B DB 24 
0821):F9 AD 12 DB DB FB AY 8) 34 
1@829:8D OD DC 68 2E 2E 2E OE 79 
0831:0F 26 13 OD OF BB B69 BE CB 
0839:07 26 89 BE 20 14 BS B5 3D 
0841:20 6) 15 64 69 14 OF 12 4p 
10849:09 15 OD 2E 2E 2E BO 2E FF 
@0851:2E 2E 18 OC O65 O1 13 O5 LE 
06859:28 15 13 65 28 14 12 @1 E7 
0861:13 898 28 12 85 83 85 18 70 
@869:14 81 83 Oc O5 13 2E 2E E3 
@871:2E OO 2E 2E 2E OF 16 85 26 
@879:12 14 89 OD @5 2) 2E 2E ca 
| @881:2E @8 2E 2E 2E 15 18 83 3A 
6889:0F OD 69 GE 87 20 63 BOF 34 
0891:0C 89 13 85 15 BD 28 O5 BE 
0899:16 05 BE 14 13 3A O08 2E AB 
QOBAl1:2E 2E 12 65 67 O09 OF BE 6F 
BB8A9:0) OC 28 14 B89 O4 G4 BC EE 
@8B1:19 17 69 BE BB 26 63 OF 84 
@8B9:0E 14 65 13 14 26 37 2F 66 
@8C1:31 2E 2E 2E 08 2E 2E 2F El 
OB8c9:0E 81 14 O89 BF BE O@) OC F2 
@8D1:28 @D 89 83 12 OF B3 OF 6A 
'98D9:6D 10 15 14 865 12 28 13 1¢ 
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8E31:64 
| BE39:17 
| BE41:F8 
| GE49:88 


8E51:13 


GE59:Cce 


HF61:080 
8E69:88 
BE71:08 
6E79:00 
G6E81:38 
GE89:388 
8E91:09 
8E99:80 
@EA1L:EE 
GEA9:00 


BEB1:00 


BEB9I:00 
BEC] :30 
GEC9:00 
BED1:81 
| GED9:988 
BEE1:8E 
BEE9:09 
BEF1:06 
BEFI:08 
| OFO1:30 
OFO9:00 


| @F11:00 
H8F19:00 


| OF21:E3 
9F29:00 
6F31:90 
| OF39:00 
| OF41:88 
6F49:06 
OF51:45 


O@F59:80 I 


O8F61:08 
O8F69:80 
@F71:C6 
O8F79:8C 
@F81:88 
OF89:44 
OF91:81 
OF99:18 
OFA1L:80 
OFAQ:FF 
@FB1:De 
| O@FB9:19 
O@FC1:8C 
@FC9:8D 


OFD1:26 | 


OFD9: 28 
@FE1:26 
OFE9: 20 
OFF1:@0E 
OFPF9:19 
1601:26 
1889;26 
1811:28 
1919:28 
1921:20 
1829:206 
18931:11 
1@39:11 
1041:F0 
1949:CB 
1651:AA 
1059:699 


1861:8C 


1969:11 
1671:AD 
18979:18 
16881:08 
1089:88 
1091:13 
1699:63 
16A1:88 
18A9:07 
1881:63 
J6B9:06 
18C1:95 
16C9:83 
18D1:16 


6G 
87 


Oo | 


]4) 
14) 


03 


4) 


5) 4) 


26 


07 


OS 2E 





18D9:48 
1BE1:190 
1BE9:1¢0 
1O9F1:19 
18F9:18 
1161:68 
1189:108 
L1l11:1D 
L119:25 
1121:31 
1129:BE 
1131:8A 
1139:E2 
1141:A5 
1149:18 
1151:087 
1159:62 
1161:69 
1169:A9 


| 1171:08 


1179:62 
1181:69 
1189:4A4 
1191:87 
1199:AD 
11A1:B4 
L1LA9:AD 
1181:B2 
1] B9:20 
11¢1:90¢C 
11¢9:8D 
11D1:16 
11D9:69 
L1E1:4A 
11E9:96 
11FP1:03 
11F9:65 
1201:65 
1269:17 
1211:A9 
1219:38 
1221:06 
1229:A9 
1231:8D 
1239:0C 
1241:ED 
1249:8E 
1251:FC 
1259:12 
1261:AA 
1269:AB 
1271:988 
1279:AE 
1281:8C 
1289:0c 
1291:0) 
1299:00 
12A1:08 
12A9:18 
12B81:68 
12B9:53 
12C1:FA 
12C9:12 
12D1:A0 
12D9:6F 
12E1:BD 
12E9:09 
12P1:09 
12P9:13 
1381:¢c9 
13609:13 
1311:69 
1319:39 
1321:A5 
1329:69 
1331:66 
1339:85 
1341:46 
1349:A5 
1351:85 


1359:CA : 


1361:42 


| 1369:E6 


L371:CE 
1379:FE 


16 
20 
16 


AS 


AE 


ce 


OG 


20 


an 


90 





1381:De 
1389:CA 
1391:08D 
1399:13 
13A1:13 
13A9:83 
13B1:AD 
13B9:13 
13C1:94 
13C9:Be 
13D1:586 
13D9:98 
13E1:9D 
13E9:86 
L3F1:28 
13F9:07 
1401:9D 
1409:04 
1411:9D 
1.419:CA 
1421:81. 
)429:A2 
1431:CA 
1439:BD 
1441:FB 
1449:F9 


1451:E8 


1459:84 
1461:57 
1469:69 
1471:84 
1479:AD 
1481:78 
1489:65 
1491:56 
1499:63 
14A1:65 
14A9:0B 
14B1:7E 


14B9:06 


14C1:5B 
14¢9:84 
14D1:66 
14D9:E4 
14E1:4A 
14E9:07 
1L4F1:65 
l4F9:5D 
1501:86 
1589:E6 
1511:78 
1519:64 
1521:7¢c 
1529:A9 
1531:18 
1539:A2 
1541:18 
1549:A2 
1551:El] 
1559:6] 
1561:18 
1569:A2 
1571:F9 
1579:9D 
1581:86 
1589:AA 
1591:208 
1599:0D 
15A1:18 
15A9:906 
15B1:989 
15B9:D9 
15C1:A9 
15C9:CA 
15D1:098 
15D9:2F 
15E1:28 
15E9:A2 
15F1:A9 
15F9:59 
1681:A2 
1609:19 
1611:CE 
1619:Da 
1621:8C 


AQ 
BD 
BO 
84 
B2 
AD 
13 
93 
AQ 
BO 


. 88 


47 
26 
49 
14 
1.0 
a4 
18 
a4 
F3 
9D 
9D 
F7 
14 
59 
98 
4c 
86 
20 
04 
96 
75 
O5 
7E 
5D 
85 
A3 
TE 
85 
2E 
8D 
04 
BD 
4h 
O7 
49 
73 
6 
8D 
6B 
06 
A6 
5) 4) 
c& 
28 
AQ 
28 
AQ 
TF 
BB 
28 
AY 
9D 
07 
1E 
FO 
BD 
52 
68 
CA 
Lo | 
EO 
9D 
FF 
08 
9D 
EO 
9D 
BD 
9D 
AY 
60 
O4 
AQ 
AD 


FE 
De 
cé8 
cs 
8D 
O4 
CB 
8D 


BO | 


Ba 


. O1 


25 
81 
Ag 
51 
18 
TF 
79 
B5 
9D 
F7 
a7 
88 
85 
FB 
E8 
@5 
oF 
B4 


9 6F 


6c 
4 
78 
5D 
65 
A4 
408 
B5 
1B 
B81 
B4 
B9 
49 
a7 
35 
6D 
O7 
E5 
7D 
86 
28 
28 
AS 
BA 
EF 
SA 
F2 
AY 
AQ 
BA 
E2 
9D 
86 
2E 
23 
8D 
A2 
CA 
9D 
AQ 
68 
EF 
DA 
AQ 
9D 
69 
82 
FA 
9D 
Fi 
CA 
3F 
AP 
CE 


" DO 
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1629: 26 
| 1631:84 
1639:A9 
1641:AD 
1649:51 
1651:A9 
1659:8A 
1661:8D 
1669:989 
1671:bD4 
1679:0E 
1681:38 
1689:D0 
169] :BB 
1699:A2 
1GA1]1:@0E 
16A9:00 
| 16B1:25 
16B9:FO 
16C1:8F 
16C9:D4 
16D1:D4 
16D9:8D 
16E1:A9 
L6E9:OF 
| 16F1:1¢ 
l6F9:69 
1701:EE 
17809:17 
1711:A9 
1719:A9 
1721:14 
1729:15 
1731:D4 
1739:8D 
1741:66 
1749:8D 
1751:A9 
1759:04 
1761:06 
1769:B9 
1771:FO 
L779:F6 
1781:8D 
1.789:17 
1791:F6 
1799:38 
L7A1:FO 
1L7A9:18 
| 17B1:10 
17B9:CD 
17c1:66 
17¢9:8D 
17D1:68 
17D9:18 
17E1:18 
L7E9:1B 
L7JF1:AD 
17F9:A9 
1891:086 
1889:ED 
1811:EB 
1819:28 
1821:AD 
1829:A9 
| 1831308 

1839:18 
1841:0A 
1849:99 
1851:68 
1859:12 
1861:2E 
1869: 98F 
1871:88 
1879:0A 
1881:12 
1889:38 
1891:14 
1899:909 
18A1:2C 
18A9:98C 
18B1:13 
18B9:85 


85 


18 


. FO 
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Program 2: Basketball Sam & Ed 
Customizer Loader 


SF 16 POKE 53280,0:POKE 5328), 


Jc 


| AA 


DK 


DX 
GB 


DX 


20 


38 


4G 


od 
60 


706 


0 

PRINT" ({CLR]|2 DOWN} LBLK) 
LOAD"CHRS(34)"SAM & ED"C 
HRS (34)",8" 

PRINT"{4 DOWN] POKE 44,16 
@:POKE 25600, 0" 

PRINT"{2 DOWN} LOAD"CHRS ( 
34)"S & E CUSTOMIZER"CHR 
$(34)",8" 

PRINT" {4 DOWN} RUN" 
PRINTSPC(2)"E8QHJUST A MO 
MENT ..- LOADING CUSTOMI 
ZER{ BLK} (HOME}"; 
FORI=1T04: POKE630+1,13:N 
EXT: POKE]98, 1 


Program 3: Basketball Sam & Ed 


Customizer 
FG 18 REM SAM & ED CUSTOMIZER 
MX 2@ REM COPYRIGHT 1987 - COM 
PUTE! PUBLICATIONS, INC. 
ALL RIGHTS RESERVED 
RC 38 POKE 53280,2:POKE 5328], 
12:BK=) 
AK 48 GOSUB 550 
MA 5@ PRINT" |DOWN] CHANGE COLOR 
S (Y/N)";:INPUT AS:IF AS 
<-"y" THEN 9230 
CK 60 PRINT" [DOWN] [3 RIGHT) PRE 
SS SPACEBAR TO CHOOSE Co 
LO RS on 
KG 78 PRINT"{3 RIGHT]AND THEN 
| {SPACE]PRESS RETURN TO 5S 
ELECT" 
HQ 8&8 PRINT"{DOWN}BORDER COLOR 
{5 SPACES}";:GOSUB 600 
GR 9@ BD=X:POKE 53280,xX 
RM 100 PRINT"BACKGROUND COLOR 
{[SPACE]";:GOSUB 600 
HA 118 BK=X:POKE 53281,X:IF BK 
=0 THEN POKE 646,1 
FC 126 PRINT"{DOWN]SAM'S BODY 
{SPACE}]COLOR ";:GOSUB 6 
Bo 
RB 13@ SB=X 
EM 148 PRINT"SAM'S LEG COLOR 
{2 SPACES}";:GOSUB 690 
HF 158 SL=X 
DX 160 PRINT" (DOWNJED'S BODY Cc 
OLOR{2 SPACES}"; :GOSUB 
{SPACE} 600 
FA 1798 EB=xX 
JJ 186 PRINT"ED'S LEG COLOR 
{3 SPACES}";:GOSUB 600 
XF 198 EL=X 
MG 20@ POKE 2431,BD:POKE 2441, 
BK 
EE 218 POKE 2461,SL:POKE 2466, 
SB 
SH 228 POKE 2471]1,EL:POKE 2476, 
EB 
JP 238 POKE 53280,2:POKE 5328) 
,12:POKE 646,90 
KG 240 GOSUB 550:PRINT"{DOWNIC 
HANGE TIMER (Y¥/N)";:INP 
UT DS:IF DS="Y" THEN GO 
SUB 690 
SS 258 GOSUB 558:PRINT"([DOWN)Cc 
HANGE MESSAGES (Y¥/N)";7: 
INPUT AS:IF AS<>"Y" THE | 
N 450 
QD 266 GOSUB55¢ 
DH 278 PRINT" {| DOWN}UPCOMING EV 


ENT #1 (37 CHARS MAX.)" 
:INPUT AS 





289 
2968 
3808 


3196 
320 
338 
346 
358 
368 


378 
389 
390 
460 


416 


6426 


430 
446 
450 


460 


4708 
480 
496 
5608 
518 


520 


539 


1 548 


550 


568 
576 
586 
590 
600 
619d 


620 
630 
646 
656 
669 
6/6 


68a 
696 


IF LEN(AS)<37 THEN AS=A 
S+" ":GOTO 28¢ 
AS=LEFTS(AS,37) 

FOR Y=] TO 37:NC=ASC(MI 
DS(AS,Y,1)):IF NC>63 TH 
EN NC=NC-64 

POKE 2207+Y,NC 

NEXT Y 

PRINT" |DOWN]JUPCOMING EV 
ENT #2 (37 CHARS MAX.)" 
:INPUT A$ 

IF LEN(AS)<38 THEN AS=A 
S+" ";GOTO 349 

AS=LEFTS(AS,38) 

FOR Y=l1 TO 38:NC=ASC(MI 

DS(AS,Y,1)):IF NC>63 TH 

EN NC=NC-64 

POKE 2245+Y,NC 

NEXT Y 

PRINT" [DOWNJUPCOMING EV 

ENT #3 (29 CHARS MAX.)" 
: INPUT AS 

IF LEN(A$)<29 THEN AS=A 

S+" ":GOTO 499 

AS=LEFTS(AS, 29) 

FOR Y=] TO 29:NC=ASC(MI 

DS(AS,Y,1)):IF NC>63 TH 

EN NC=NC-64 

POKE 2284+Y,NC 

NEXT Y 

PRINT" {2 DOWN}{6 RIGHT} 

INSERT A NEW FORMATTED 
[SPACE]DISK":FOR D=l1 TO 
10608:NEXT 

PRINT" [DOWN] [RVS}] 

{2 SPACES]PRESS ANY KEY 
TO SAVE CUSTOM SAM & E 

Dp {orFr}" 

GET DHS 

IF DHS="" THEN 478 

POKE 44,8:POKE 46,25 

PRINT" {DOWN}JUST A MOME 

ie rye 

PRINT"SAVING CUSTOM SAM 
& ED" 

OPEN 1,8,15,"S@:CUSTOM 
[SPACE]SAM & ED":CLOSE 
{SPACE}1 

SAVE"CUSTOM SAM & ED",8 

PRINT" {CLR} {DOWN} {RVS] 
{6 SPACES]PRESS RETURN 
(SPACE]TO PLAY SAM & ED 
{5 SPACES} |OFF}":PRINT" 
[3 DOWN}RUN{3 UP]}":END 
PRINT" {CLR} {BLK}";:PRIN 

Tspc(9)"(RVS}{2 SPACES} 

SAM & ED CUSTOMIZER 

{2 SPACES} {OFF}" 

FOR M=) TO 10:PRINT" 

{ DOWN} ":NEXT 
PRINTSPC(5)"UDI COPYRIG 

HT 1987" 
PRINTSPC(5)"GCH COMPUTE 
| PUBLICATIONS INC." 
PRINTSPC(5)"JFK ALL RIG 
HTS RESERVED([HOME}":RET 
URN 

FOR X=8 TO 15 

POKE 646,X:PRINT"([RVS) 
{SPACE} {OFF}":"{LEFT}"; 
:GET AS:IF AS=CHRS(13) 
{SPACE}THEN POKE 646,80: 
GOTO 670 

IF AS=CHRS(32) THEN 648 
GOTO 619 

IF X=)5 THEN 600 

NEXT 

GOTO 619 

PRINT: IF BK=8 THEN POKE 
646,] 

RETURN 

PRINT" {DOWN]ENTER A NUM 
BER LESS THAN 10";:INPU 








T HS 

QJ 768 IF H$="" THEN 780 

SJ 716 H=VAL(HS$)+176 

SJ 726 POKE 5714,176:POKE 5719 
7H : RETURN 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





Ringside Boxing 


See instructions in article on page 
15 before typing in. 


G8801:8C BB BA OG JE 20 32 34 68 
0889:38 35 68 8G BO AD ES B3 BE 
O0811:D8 @3 6C B2 O83 CE 47 O3 E4 
O819:CE 49 @3 CE 48 @3 AD 4E 28 
| 8821:03 DO BB 28 BC B9 AD Bl 23 
@829:8D 4E 83 4C 37 88 20 6) 34 
|} 8831:09 AY OO BD 4E B83 AD 48 2B 
|} 6839:03 DO O8 28 62 B8 AY OF 97 
@841:8D 48 83 AD 47 63 DO BS 55 
H349:20 9B @8 AI 13 SD 47 O83 4c 
O8851:AD 49 83 D@ OB 20 FT B88 BB 
O859:A9 6D 8D 49 03 6C 82 83 Bl 
8861:60 AD 4D 63 D@ JA AD 4F 8B 
8869:03 D8 O@5 AY C2 SD FA B7 B3 
@871:AD 50 83 DO O5 AY CF BD D5 
O879:FF O07 AI Bl BD 4D 83 68 98 
8881:AD 580 83 DO B85 AY CE 8D E3 
O889:FF O87 AD 4F 863 D@ G5 AS 15 
8891:C3 8D FA 67 AY 8B BD 4D 6C 
6899:63 68 EE 4A 63 AD 4A 83 2C 
88A1:C9 GA 98 3) AD BB BD 4A FS 
O88A9:03 AS OO SD 4A 83 EE 48 @6 
O88B1:93 AD 4B 63 C9 B86 9B 1D Ec 
@8B9:A9 O88 8D 4B O3 EE 4C @3 74 
@BC1l:AD 4C 83 C9 83 90 OE AD DA 
88C9:00 8D 4A 63 8D 4B 83 8D E3 
B8D1:4C 83 8D EB O83 AD 4C B3 73 
B8D9:18 69 38 8D 36 4 AY 3A TE 
OBE1:8D 37 @4 AD 4B @3 18 69 El 
88E9:30 8D 38 64 AD 4A @3 18 71 
@8F1:69 38 8D 39 64 68 AD 40 45 
BBF9:03 C9 C5 BO O3 EE 40 83 19 
O901:AD 41 03 C9 C5 BO G3 EE 1D 
6909:4) 63 68 AD 4F 83 FE 83 CE 
0911:4C AO O89 AD 58 O83 FE G1 DE 
9919:69 AD 0] DC 29 OF C9 OF DC 
§9921:D0 81 680 38 C9 88 98 16 11 
0929:AD 88 DB 18 C9 2D BO BO) 13 
8931:68 CE 88 DO CE B82 DB CE 23 
8939:04 D@ CE 66 DO 68 AD BA 27 
0941:D8 38 ED 88 DE C9 12 BO BA 
6949:091 68 AD 86 DB 38 C9 DC B61 
6951:98 0) 68 EE 088 D@ EE O02 OA 
6959:D8 EE 64 DB EE 86 DB 68 AE 
B8961:AD 50 83 FO B83 4C 29 O9 72 
O969:AD 4F 693 FO BO] 68 AD OO 7A 
8971:DC-29 OF C9 OF DA B81 68 DA 
| 8979:38 C9 O88 98 22 AD BE DB DS 
6981:18 C9 28 BB Ol 60 AD OS OF 
0989:D0 38 ED 68 De C9 12 Be 52 
6991:01 68 CE 868 D@ CE OA DO 3D 
B999;:CE O6C D@ CE BE DO 60 AD 3F 
B9A1:;0E DB C9 EB 98 B1 60 EE 1F 
B9A9:08 D@ EE BA DB EE BC DB 9D 
BIB1L:EE OE DO 60 78 AD 14 B3 B4 
B9B9:8D 82 03 AD 15 83 8D 83 cl 
69C1:093 AY BE 8D 14 @3 AS OB G2 
89C9:8D 15 83 AS BO SD 4A B3 BO 
89D1:3D 4B 83 8D 4C 83 8D 4F SF 
B9D9:03 8D 50 83 BD E4 83 8D 9E 
BIELZES 83 AI Ol BD 47 O3 SD BA 
B9E9:5) 03 AY 84 BD 48 G3 58 cé6 





O89F1:26 
O9F9:A9 
@AG1:25 
G8AS9I:8D 
8A11:2D 
8A19:27 
8A21:8D 
G8A29:A9 
GA31:D2 
OA39: 20 
8A41:8D 
8@A49:8D 
8A51:A9 
8A59:8D 
8A61:8D 
8A69:Ds 
GA71:2D 
BA79:20 
GA81:0E 
@A89:9D 
G8A91:208 
HA99;:0E 
OAAL:DC 
OAA9: 3D 
O8AB1:De 
BAB9:c5 
BAC1L:65 
BACI:A9 
BAD1L:A9 
BAD9:F9 
GBAE1:01 
BAEO9:DC 
OAF1:FB 
BAFO:A5 
O6BE1:OF 
@BE9:FC 
0B11:33 
0B19:8D 
0B21:4c 
BB29:A9 
@B31:58 
@B39:0B 
G8B41:A9 
@B49:c9 
@0B51:AD 
@B59:D4 


BB61:4C | 


@B69:FC 
6B71:46 
8B79:09 
6@B81:46 
@B89:083 
@B91:AD 
0B99:03 
O@BA1:De 
O8BAI: 23 
O8BB1:28 
OBB9:07 
OBC) :bDs 
O8BC9:083 
OBD1:3c 
BBD9:AD 
OBEL:E@ 
OBE9:E9 
OBF1:18 


BBFI:03 € 


@CB81l:bDs 
8C09:03 
6C11:3E 
8C19:AD 
8C21:Cd 
OC29:E9 
gc31:18 
8C39:03 
8C41:GE 
60C49;:5F 
0c51:15 
8C59:c9 
8C61:32 
8C69:07 
gc71:c9 
OC79:AD 
8C81:C2 
8C89:02 
8C9L:4F 


DO 


ce 





8C99:8D 
O@CA1L:A9 
OCA9:AD 
0CB1:19 
8CB9:3C 
OCC1: BE 
8CC9:07 
@CD1:D6 
gcD9:07 
BCE1:8D 
O8CE9:@83 
@CF1L:E5 
BCF9:07 
@D81:87 
ODB9:A2 
G8Db11:bDe 
O@D19:E4 
O6D21:FO 
8Db29:De 
0D31:86 
8D39:FF 
6D41:56 
OD49:0E 
O9D51:20 
OD59:A2 
O8D61:A0 
8D69:03 
O0D71:08D 
6D79:3F 
@D81:68 
ODS89:FF 
9D91:208 
GD99:20 
O@DA1:A9 
BDA9:8D 
@DB1:A9 
ODB9I:FC 
@DC1:CE 
Opc9; De 
@DD1:OF 
O8DD9:83 
ODE1:A9 
O8DE9:A9 


ODF1:A9 


| O@DF9:A9 


BE@1:60 


| BEB9:CE 


BEL1:F8 
OHE19:FC 
B8E21:683 
BE29:A9 
B8E31:8D 
8E39:8D 
BE41:A9 
BE49:0B 


| G@E51:80 


BE59:A9 
8E61:65 
8E69:78 
8E71:D4 
BE79:8D 
BESB1tEA9 
BES89:A9 
G8E91:D¢e 
BEI9:CA 
@EA1:BC 
BEA9:03 
BEB1:18 
WEBI: 48 
BEC1:8D 
BEC9:BB 
BEDI1:AD 
GED9:06 
BEE1:09 
OEE9:07 
DEF1:8D 
BEF9:A9 
OFO1:FD 
O8FOB9:CcC 
OF11:07 
O@F19:A5 
OF21:0F 
O@F29:20 
OF3I:Az2 
OF39:E8 


A9 
FB 
4d, 
E7 


| 8D 
. 8D 


C7 
a7 
DE 
AQ 
90 
DB 
Ol 
A2 
94 
38 
6) 

78 
BE 


, oF 


80 
68 
20 
A2 
94 
20 
B3 
18 
3E 
AO 
O3 
A2 
AD 
CD 
AY 
PA 
CD 
B7 
De 
96 
OB 
a) %) 
82 
OA 
88 
87 
DO 
Cl 
D4 
AQ 
FD 
8D 
AQ 
87 
BA 
D4 
Ol 
B9 
D4 
BD 
A2 
o4 
i) 4) 
A® 
60 
18 
83 
8D 
1 Bar 
AD 
VBS: 
18 
E4 
gc 
20 
85 
FC 
FF 
O7 
20 
85 
83 
Ag 
94 
FB 


CA 

o7 

8D 

B3 

E4 

50 

8D 
Ag 
AD 
19 
88 
BE 
49 
FF 
QE 
8D 
60 
Ag 
6B 
4C 
8D 
A2 
94 
FE: 
BE 
FO 
20 
20 
83 
O4 
4A 
B4 
4) 
BD 
cl 
a7 
BD 
Ag 
8D 
8D 
De 
Dd 
DO 
DG 
DS 
cg 
BA 
8D 
DO 
cc 
O7 
18 
o7 
D4 
20 
68 
D4 
8D 
AQ 
18 


64 | 


D4 
D4 
Bd 
AD 
69 
c9 
41 
BO 
41 
8D 
69 
3 
A9 
94 
FB 
87 
20 
A9 
94 
DS 
FO 
31 
BE 
20 
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OF 41:C8 
OF49:07 
OF51:8D 
OBF59:A2 
OF61:FB 
O@F69:38 
OF71:06 
OF79;:08 
OF81:A2 
OFS9:C6 
OF 91:4cC 
OF99:A9 
OFA1:FO 
BPAS:EG 
OFB1l:12 
OFB9: 20 
OFC]: 20 
OFCS: 20 
OFD1:206 
O8FD9:92 
BFEL:20 
O@FE9: 20 
OFF1:26 
OFFS: 20 
18001:12 
1009:20 
1811:20 
16019:05 
1621:20 
1829: 26 
1631:52 
10639:12 
16041:26 
1649: 26 
1651:92 
1859: 20 
1861:92 
1669:45 
10871:05 
16079: 26 
1681:268 
1989:20 
1891:20 
1999:25 
1OA1: 26 
1BA9: 20 
180B1:20 
1OB9: 20 
108C1:20 
18c9: 26 
16D1:58 
LOD9:)2 
18E1:26 
IOE9S: 20 
1OBF1:20 
LOF9: 20 
1161:53 
1189:12 
1111:26 
JI119:20 
1121:206 
1129:286 
1131:26 
1139: 20 
1141:D1 
1149:D) 
1151:D1 
1159:05 
1161:26 
1169:20 
L171:26 
1179:26 
1181:26 
1189:92 
1191:12 


L199=3D) : 


JIA1:D) 
L1LA9:D) 
1JB1:D) 
11B9:12 
11€1:92 
11¢9:D) 
11D1:9E 
11D9:B7 
L1E1:B7 


8D 
A2 
FS 
FF 
cg 
AD 
AD 
Be 
FF 
AS 
BS 
BF 


BB. 


FC 
85 
20 
20 
29 
20 


20 1 


20 
20 
97 
20 
B5 
29 
12 


92 


20 
268 


B7 
20 
Ag 
94 
De 
3 
63 
FO 
45 
FO 
EA 
FC 
D2 
9D 
20 
20 
20 
26 
20 
28 
20 
20 
20 


20 | 


92 
12 
50 
20 


26 


20 
4E 


92 


I2 
45 
26 
20 
20 
92 
20 
20 
25 
20 
20 
AO 
208 
20 
20 
20 
20 
26 
58 
92 
26 
20 
20 
20 
52 
92 
26 
28 
26 
28 
26 
28 


. 20 


20 
26 


, 26 


20 
DJ 

Di 
D1 
DI. 
20 
92 
20 
26 
20 
12 
32 
85 
95 
B7 
B/ 
B7 
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LLE9: 29 
LIF1:3206 
LIF9:52 
1281:92 
1289: 28 
1211:Dl 
1219:D) 
1221:D1 


| 1229:cCpD 


1231:20 
1239: 20 
1241:12 
1249:B7 
1251:B7 
1259:B7 
1261:CD 
1269:92 
1271:12 
1279:1C 
1281:26 
1289; 20 
1291:208 
1299:92 
12A1:@05 
12A9: 20 
12B1:1¢ 
12B9:20 
12C1:208 
12C9: 26 
12D) :D) 


| L2D9: 208 
| L2E1:2¢8 


12E9: 20 
12F1:20 
12F9: 26 
1361:20 
1369:92 
1311:44 
1319:12 
1321:28 
1329:208 
1331:28 
1339:92 
1341:28 
1349:206 
1351:26 
1359:20 
1361:20 


1369:92 . 


1371:12 
1379:20 
1381:26 
1389: 20 
1391:20 


| 1399: 20 


13A1:20 
13A9: 20 
13B1:20 
13B9: 20 
13C1:92 
13C9:54 
13D1:20 
13D9: 20 
13E1:20 
LIES: 20 
13F1:92 
L3F9;: 20 
1401: 20 
1409:22 
1411:49 
1419:49 
1421:92 
1429: 20 
1431:268 
1439: 20 


1441:20 . 


1449; 20 
la4sl:i2 
1459:92 
1461:12 
1469: 26 
1471:26 


| 1479: 26 


1481;:20 


1 1489:20 | 


20 


20 


36 
12 
208 
CE 
20 
20 
20 
20 
12 
20 
CE 
92 
B7 
B7 
95 

9E 
30 
92 

95 

D1. 
DI 
DI 

9E 
20 
20 
9B 
20 
20 
20 
12 
20 
DJ. 
20 
20 
20 
LC 
9E 
20 
20 
20 
29 
26 
20 
20 

20 

20 
20 
28 
20 
9B 
28 
26 
20 
20 
20 
20 
20 
26 
26 
oF 
208 
12 
20 
20 
20 
12 
20 
97 
32 
20 
20 
1.2 
20 
97 
20 
20 
20 
20 
20 
20 
26 
20 
20 
20 
20 


DI 
99 
12 
96 
D1 
D1 
DI 
92 
05 
28 
96 
9E 
B7 
B7 
12 
CD 
20 
96 
20 
20 
290 
26 
CD 
29 
20 
AQ 
20 
20 

20 
5 

20 
12 

20 
20 
20 
Dl 

32 
12 
20 
20 
25 
20 
92 

12 
20 
20 
20 
20 
31 

20 
20 
20 
268 
92 

12 

20 
20 
26 
29 
43 
12 
20 
2G 
20 
20 
@5 
20 
20 
49 
20 
20 
@5 
20 
20 
20 
20 
20 
20 
20 
12 
26 
28 
26 
20 
91 


20 
53 
B5 
DJ 
20 
20 
20 
96 
20 
26 
D1 
B7 
B7 
B7 
20 
12 
20 
D1. 
92 
D) 
D1 
95 
96 
20 
92 
20 
20 
20 
DF 
20 
20 
98 
20 
26 
20 
12 
4F 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
4F 
20 
92 
2a 
20 
DF 
20 
20 
12 
4E 
42 
20 
20 
20 
12 
20 
20 
20 
12 
20 
B5 
20 
20 
26 
20 
91 


12 
43 
28 
12 
D1 
DJ. 
D1 
D1. 
92 
12 
9E 
Bi 
B7 
B7 
92 
05 
20 
SE 
L¢ 
20 
28 
ihe 
DI 
28 
9E 
20 
28 
20 
92 
92 
12 
A9 
20 
29 
28 
5 
55 
29 
29 
20 
28 
29 
26 
29 
26 
20 
290 
85 
20 
29 
28 
29 
20 
26 
20 
20 
20 
290 
@5 
55 
2 
AQ 
29 
20 
12 
92 
12 
2g 
47 
4F 
2G 
92 
12 
20 
20 
20 
20 
05 
20 
20 
26 
26 
268 
20 
92 


a5 
4F 
20 
95 


20 


20 
20 


9E 


20 
20 
CE 
B7 
BT 
B7 
9E 
20 
20 
CE 
D). 
DL 
DI 
29 
2 
20 
CE 
20 


20 | 


26 
1c 
208 
20 
20 
20 
20 
20 
20 
45 
92 
20 
208 
20 
DF 
20 
9B 
20 
20 
20 
20 
2a 
208 
20 
20 
20 
26 
98 
20 
20 
26 
26 
4E 
92 
20 
20 
26 
20 
20 
20 
20 
33 
58 
20 
26 
20 
92 
20 
20 
20 


20 52 
20 
20 


20 


20 9 


26 
20 
4) 





1491:986 
1499:608 
14A1:5B 
14A9:59 
14B81:06 


| 14B89:5¢ 


14C1:F5 
14C9:88 
14D1:5c 
1.4D9:55 
14E1:03 


| J4E9:5c 


14F1:068 
14P9:09 
1501:088 
1509:08 


1511:09 


1519:09 
1521:08 
1529:08 
1531:08 
1539:AC 
1541:FF 
1549:00 
1551:Dc 
1559:D7 
1561:00 
1569:EC 
1571:088 
1579;:AC 
1581:FF 
1589:85 
1591:Dc 
1599:57 
15A1:EB 
1.5A9:AB 
15B1:00 
15B9:D7 
15C1:3D 
15C9:09 
15D1:55 
15D9:5D 
15E1:6D 
15E9:EB 


| 15F1:80 


15F9:06 


| 1681:908 


1609:008 
1611:Co8 
1619:7¢8 
1621:C8 
1629:0698 
1631:098 
1639:F5 
1641:0F 
1649:08 
1651:55 
1659:55 
1661:008 
1669:57 
1671:C8 
1679:88 
1681:603 
1689:05 
1691:098 
1699:Cco 
16A1:08 
16A9;:08 
16B1:89 
16B9:5¢Cc 


| L6Cl:F5 
|} 16C9:980 


16D1:5F 
16D9:F5 
16E1:00 
16E9:5C 
L6F1:08 
16F9:09 
1781:00 
1769:79 


1711:08 


1719:90 
1721:08 
1729:60 
1731:068 


5) 4) 


a) 4) 
a) 4) 
i) 5) 
a) 4) 


88 


85 
85 
85 
A3 


a) 4) 


a) 4) 


80 


EC 


a) 4) 


i) 4) 


Oo 


76 
5) 
i) 3) 
il) 


00 


4) 


Oo 


aa 





{SPACE}166 , 158 
EP 240 DATA 132 , 34, 168, 1 
68 , 132 | 
BK 258 DATA 35 , 160 , 8, 18 
{SPACE}, 2406 
EG 260 DATA 16 , 282, 16, 12 


1739:00 66 06 OO BB BB BB BB 
1741:808 68 88 86 BB O88 BO oe 
1749:08 809 88 83 O88 BB 3D CF 
1751:F8 F5 75 DF F5 55 55 F5 

1759:55 DS FF 55 5D FD 55 77 
L761:FFP 75 55 FF FD 55 3F OF 


19E1:088 68 B68 BO BB BO BOB BB 14 
19E9:08 98 B88 BB BO BF FO BB 3A 
LOF1:3F FC 08 3F FF 668 35 FF 6) 
19F9:00 3D FF @@ 15 DF 88 35 D8 
JAG1:5F 868 35 5C OB CD 5C OO 41 
JAO9:;CD 57 88 CD 55 CO F5 F5 66 


1769:55 08 83 FF 80 98 BB BO JA11:CO 5P 55 CO D5 55 CO 75 2F . 238 
1771:00 08 8B BB BB BB BO 20 1A19:5F CO DD 75 CO 37 D7 68 D2 | op 279 DATA 34, 208, 2, 230 
1779:80 08 BB BB BD OG BB 20 1A21:35 5F 08 35 57 OB 35 57 97 . 35 : 

1781:0C 08 68 37 89 OB DS ca 1A29:00 35 57 08 OF OB BB OO GE > 
1789:03 55 76 PF 55 76 EA DF 1A31:00 88 8 60 ao a9 a@ ao 65 | "* 780 Praare U (ESRy ap a''es 28 


1A39:00 08 88 BO BB BO BB BO GD 
JA41:30 68 66 DC 66 G3 57 BY 16 
1A49:8D 55 C@ @D 55 FF OD F7 FE 
1A51:AB OD CE AB OF C3 AB OD IF 
1A59:FE AB 8F 5E AB BD 5E AF 98 
JA61:AD 7B F5 AD 7A DS FF FPA GB 
JA69:D5 FF FF FF 60 80 86 988 88 
1A71:08 68 BB BB BB BB BB GB AS 


1791:78 EA B3 78 EA C3 FO EA 
1799:BF BO EA BS F2 FA BS 7E 
17A1:5F ED 7A 57 AD 7A 57 AF 
L7A9:IFF FF FF FF 66 68 60 G8 
17B1:00 00 00 BO OB BB OH BB 
17B9:00 00 88 88 BB BB BO BB 
17C1;80 88 B86 BB BB GH OB OB 
17C9:00 68 B68 BB BO 30 BB BB 


JF 296 DATA 241 , 200 , 177 , 
(SPACE}34 , 48 

RE 3088 DATA 17, 6, 142 , 255 
, 205 

BX 318 DATA 238 , 198 , 166 , 
[SPACE}198 , 157 

FH 320 DATA 119, 2, 174, 25 


L7DL:EF OO @@ EE GO OO EE OB < 1A79:00 66 08 OO BO BB BB BO AD 5, 205 | 
17D9:08 EE 88 @8 3E BB 2B 23 1A81:08 68 86 88 BB BB BG go BS | CQ 338 DATA 40 , 208 , 234 , 2 
17E1:06 90 88 BB BB BO BO 2B 1A89:008 88 O68 BB OO CO GF F3 D2 38 , 198 

17E9:99 66 6G 68 OB OF FO BG 1A91:7C F7 5D 5F 55 55 5F 57 B9 | AE 348 DATA 166 , 198 , 41, 1 
17F1:3F FC 68 3F FF 68 35 FF JA99:55 5F 75 55 FF DD 55 7F FS5 Sidacen ah 

17F9:00 3D FF 98 15 DF 68 351 1AA1:55 5D FF 55 7F FF 55 Fa c4 | GH 358 DATA 119 , 2, 169 , 26 
1891:5F @8 35 5C @@ BD 5c BB 1AA9:FC FF CO 68 G8 GO BB BB 74 » 141 

1809:0D 57 88 OD 55 F@ 35 55 AG 360 DATA 119 , 2, 238, 19 
1811:5C D5 5D 5C DS FS 5c B7 B, 164 


JB 378 DATA 168 , 104, 178 , 
(SPACE]1904 , 76 

FR 388 DATA 49 , 234, 198, 1 
69 , 199 

HR 398 DATA 134 , 128 , 129, 
(SPACE}161 , 144 

GF 406 DATA 133 , 137, 141 , 
[SPACE]}20@ , 202 

PG 410 DATA 130, 159, 151, 
{SPACE]}194 , 201 

HG 420 DATA 196 , 163 , 183 , 
{SPACE]}197 , 131 

DA 438 DATA 135 , 148, 158, 
{SPACE}127 , @ 

KJ 448 DATA 8, @, 255 , 255 
[SPACE], 255 


BEFORE TYPING... 
Before typing in programs, please 


| 1819:55 SC BF 55 78 DS 57 CO 
1821:F5 7D CO DF D5 C@ 35 57 
1829:00 35 57 00 OF 35 57 BB 
1831:3F FF 99 3A AA CO 3A AA 
1839:C® 3A AA CO 3B AA CO 3F 
1841:FF 86 37 57 88 37 57 BO 
1849:37 57 88 37 57 @@ 37 57 
1851:00 37 5C 60 BD D7 BO BD 
1859:D7 O66 OD D7 OO OF FF 2G | 
1.861:0E EB 00 OE EB 99 3B AB 
1869:00 FF FF @8 OF 35 57 2d 
1871:3F FF 08 3A AA CO 3A AA 
1879:CO 3A AA CO 3B AA CO 3F° 
1881:FF 88 37 57 OB 37 57 2D 
1889:37 57 G6 37 57 BB 37 57 
1891:08 37 5C O08 37 57 CO 35 
1899:D5 76 35 F5 78 3F CD EC 
18A1:3A C3 EB 3A C® 3B EA FF 
18A9:EB FF FF FF FF 88 60 20 
18B1:08 68 BO BB BB BO BO BB 
| 18B9:99 88 88 68 BC BB BB 3B 
18C1:608 68 3B OG BB EB CO BB 
18C9:EB 78 88 3D 5F FF 03 55 | 
18D1:55 80 D5 55 6B 35 55 OB 
18D9:8D 55 @G 63 FF OB OB G3 
18E1:00 86 83 OO BB G3 BO 20 
18E9:00 68 66 OO OO 3F CO AB 
18F1:FF FO O08 FF FC 98 D7 FC 
18F9:00 F7 FC 08 57 7C @8 D5 
1981:7C 68 DS 78 OB 35 78 ao 
1909:35 5C @8 FD 55 C@ 55 55 
1911:78 55 75 78 55 DD 79 77 
1919:75 76 55 75 76 7D 5D 70 
1921:EF F5 70 EB 55 CO EB 57 
| 1929:08 3D FF 88 88 BB BB oO 
1931:88 68 63 G8 BO G3 BB OB ¢ 
1939:03 88 BB 83 63 BB B2 BE 
1941:CO 63 BE CO 83 3A FO BB 
1949:3A DC 66 OF 57 FF 20 DS 
1951:55 88 35 55 88 BD 55 BB 
1959:03 55 68 09 FF 88 BB 29 
1961:09 868 OB OO BB BB BO BB 
1969:80 66 O88 GB GO 3F CB Od 
1971:FF CO 00 FF FO 00 5F FO 
1979:00 DF FO 88 5D FO BD 55 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





64Key Relocated 
Article on page 57. 


| Program 1: 64Key 


PX 18 PRINT"{CLR) 64-KEY" 
DG 20 FORI=525577T052739 
XM 30 READA: X=X+A: POKEI,A 
BG 408 NEXTI 
CD 58 IFX<>24016THENPRINT"THER 
E IS AN ERROR IN YOUR DA 
TA STATEMENTS":STOP 
BH 60 PRINT"SYS52557 TO ACTIVA 
TE" :END 
ER 86 DATA 120 , 173 , 28, 3 
{SPACE}, 72 
RM 98 DATA 173 , 21,3, 72, 
173 
AP 100 DATA 116 , 205 , 208 , 
{SPACE}2 , 169 
GB 118 DATA 118 , 141, 20, 3 
; i743 
CK 128 DATA 117 , 285 , 208 , 
{[SPACE}2 , 169 
SK 130 DATA 265 , 141 , 21, 3 
, 164 
| DD 140 DATA 141 , 117, 265, 
[SPACE}104 , 141 
ES 158 DATA 116, 205 , 88, 9 
6, 8 
DP 1609 DATA @, 72 , 138, 72 
{SPACE}, 152 
MC 178 DATA 72 , 165 , 215, 7 


Omicron 
_ Article on page 20. 


Program 1: Omicron—BASIC 
section 


QS 2 POKE 792,193 

AC 10 IFPEEK(13274) <>) 69THENLO 
AD"OMICRON ML",8,1 

JP 280 SYS13274 

BX 27 POKE 898,234 

XC 30 POKE5G6, 48:CLR: BL=51908:F 
=15:SCR=1024 

QE 48 IFPEEK(788 )=@THENFORT=9T 
0149:READDS:NEXT:GOSUBI15 
108:GOTO68@ 

CH 58 GOSUB1260 

KH 60 GOSUB)]@08 

ES 76 GOSUB786 

KS 86 GOosUB58o 

RG 98 SYS5)838:POKE56322,255:I 
F (PEEK (53288) ANDF )=@8THEN 
226 

PE 180 LV=LV-1:POKE251,48 


1981:FO 86 55 c@ ge FS 70 Ba 2, 165 SB 110 FORT=9TO64: POKE163,0:P0 
1989:35 5C OO FD SF 83 55 55 | XJ 186 DATA 212 , 240, 4, 10 KE164,3 

1991:c@ S55 55 76 55 55 5c 55 4, 76 DA 120 POKES53280,T:POKE53232, ( 
1999:55 Dc 55 57 DC 75 57 FO: KM 199 DATA 221 , 205 , 194 , S3ANDT ) +220 


SK 1308 NEXT 
EG 140 POKE]64,@:CS=CS+1 


LO9AL:DD 5F 68 D5 57 88 DS 57 
19A9:98 35 57 O08 BO BO OO BG 


(SPACE}201 , 193 
CP 200 DATA 144 , 82 , 281, 2 


19B1:88 88 88 BB BO BB BB BB 19" 196 EF 158 IFLV=@0THENJ76 
19B9:99 96 OB 3C GO BD EB BO DA 218 DATA 78 » 56 , 233 , 19 | KA 168 GOTOBO 
19C1:08 EB 86 88 3B BB GB BD. 3, 170 JQ 178 POKE53178,0:POKE53179,@ 


JS 188 POKE53272,21:PRINT" 
{CLR} 19 DOWN} "SPC(1].)" 
{CYN}G A M El3 SPACES}O | 


19C9:00 608 OD OB BO 3B BB BA 
19D1:3A O08 O88 3B OB BB OF BB 
19D9:00 61 66 B88 BB BB BB BO 


EM 220 DATA 189 , 229 , 205 , 
[SPACE}162 , @ 
' PB 230 DATA 134 , 198 , 178, 
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198 
268 


219 
220 


230 
240 


250 


260 
270 


286 


290 
3808 


316 
320 
3390 
346 
358 


. 360 


376 


380 


390 


©4080 
416 
426 
436 
| 446 


450 
460 


470 


480 


490 


560 


51.0 


| 520 


V E R" 
FORT=8T02900 :NEXT 
FORT=08TO7 :SL=SL+PEEK (83 
2+T)*10T(7-T) =NEXT 
LD=DF:GOTO69 
REM tirirtir:z:r: 

at ie ae or ee eee 
IFL<¢]15THEN43@ 
POKE531.78,0:POKE251,48: 
POKE53281,1:FORT=2TO7:W 
(T )}=PEEK(1442+T)-176:NE 
XT 
PRINT" {CLR} LWAT] pepe eras 
PPrrret tee eee a aa aa aa a 
coeeeeeeee TFORT=O6TOS:P 
RINT:NEXT 
PRINTSPC(1.1)"{RVS} {1 BLK] 
CONGRATULATIONS!" 
PRINT" | RVS}"SPC(11)"CON 
GRATULATIONSEK4":FORT=0 
TOB:PRINT:NEXT 
PRINT" {WHT} -cecsecevere 


PPPrPrrrrrrrrrrerrr rere ee 


GAME WON 


(] 
FORT=0TO75 
X=INT(RND(1)*34+4):Y=IN 
T(RND(1)*1943):PL=X+(Y* 
40)+SCR: IFPEEK(PL)<>32T 
HEN340 
POKEPL+54272,1:POKEPL+5 
4273,0 
POKEPL, 39+RND(@)*2:POKE 
PL+1,8 
SYS49680: POKE53280,T 
NEXT 
PRINT" {CLR}":POKE53272, 
21 
POKE251,8@:PRINT" 

[5 DOWN] {BLU] {7 SPACES] 
YOU HAVE SURVIVED OMICR 
ONI" 

PRINT" { DOWN] { RED} 

{7 SPACES} BONUS "(DF+1])* 
5000"POINTS AWARDED FOR 


PRINT" [DOWN] {112 SPACES} 
EACH REMAINING SHIP." 
PRINT" {DOWN} {PUR} "LV"S 
HIPS *"(DP+1)*5900"="(D 
F+1)*5080*LV"EXTRA POIN 
TS. il 
FORT=6T04500 :NEXT: POKE2 
51,48 
FORT=0TO7:POKE832+T,W(T 
) :NEXT 

POKE836, PEEK(836)+(DF+] 
)*5*LV:GOTO172 

REM :tit:t:r:r::: LEVEL COMP 
LETED t22:2::: 
POKE53178,1:POKE53179,8 
IFCS<>@THENSIO 

POKE 868, 234:PRINT" 
{HOME} {3 DOWN) {[ YEL} 
{RVS} (2 RIGHT] 

{36 SPACES}" 

PRINT" {2 RIGHT]}{RVS} 

{2 SPACES]BONUS 16080 FO 
R EXCELLENT PLAY |! 

{2 SPACES}" 

PRINT" {UP}{2 RIGHT} 
{RVS}{2 SPACES} BONUS 
REJE3 Aq FOR EXCELLENT 
{SPACE}PLAY £2 Ka 

{2 SPACES)" 

PRINT"{2 RIGHT} {RVS] 
{36 SPACES}" 
POKE25] , 64:FORT=8TO2000 
: NEXT: POKE25],@: POKE836 
, PEEK (836 )4+1 
CS=0:L=L+1:IF(3AND(L))< 
> @THEN5 76 

PRINT" {HOME} {1.7 DOWN} 


92 COMPUTE!'s Gazette Special 1988 Issue 





BH 


536 


5940 


558 


5960 


570 
580 


590 


606 


619 
620 


630 


640 
658 


660 


679 
689 
696 
766 


716 


720 
736 
746 
750 
766 


778 
788 


. 7968 


BOB 


810 
B20 
836 


846 


850 


868 


B76 


B80 


(RVS}1GRN]{16 RIGHT] 
(28 SPACES}" 
PRINT"{RVS}{18 RIGHT] 
{3 SPACES}BONUS SHIP 11 
!{3 SPACES}" 

PRINT" {RVS}{UP] 

{18 RIGHT}{3 SPACES}BON 
US SHIP £3 K3(3 SPACES] 


PRINT" {RVS!1{18 RIGHT! 
{20 SPACES}" 
POKE251,88:FORT=1TO2000 
:NEXT: POKE25],@8:LV=LV+1 
: IFLV>9THENLV=9 

GOTO8S 


REM BETWEEN 
LS trrtrrrr: 
IFCS>@THENPOKE53232,209 
: POKES53184,18: POKE53200 
, 68 
POKE53178,1:POKE53179,@ 
+: POKE251,48: POKE53216,1 
DR= INT (RND(@)*2) 
FORT=9TO7 : POKES40+T,0:N 
EXT 
POKES844, L: POKE841,Q(DF, 
®, LANDF) : POKE842,Q(DF,1 
, LANDF) : POKE]65,Q(DF, 2, 
LANDF ) 
SYS13262:POKE49408+32,3 
FORT=1T015: POKE49408+32 
+T,1:POKE53232+T, 216:P0 
KE53216+T,14 
POKE53200+T, RND(@)*48+1 
78: POKE53184+T, RND(@)*9 
6+408 : POKE49408+48+T, DR 
AD=@ : IFDR=1THENPOKE4940 
B+96+T, 2:AD=2 
POKE49408+T+80,T: POKE4S9 
408+7*16+T, ((RND(@)*256 
)AND252)+AD 

NEXT 

POKE] 531, LV+176:POKE) 57 
1, LV+248 
POKE]522, (L+) )/10+176:P 
OKE1562, (L+1)/10+248:LC 
aL+J, 
IFLC>9THENLC=LC-10:GOTO 
726 

POKE1L523,LC+176: POKEL56 
3, LC+248 
POKE164, 88: POKE163,1 
POKE49408,@0: POKE49408+1. 
6,0:SYS51998;:FORT=0TO4: 
SYS49680:NEXT 
POKE53178, 255:POKE53179 


ss *# & £ 
=e es ee eB 


LEVE 


itt es ee 
tft tt 2 oe 


TUP s2titre:r: 
POKE53286,60:LV=5 
L=6:SL=@:CS=0:PRINT" 
{CLR}":POKE53272,31:SYS 
51866 
FORT=0TO)].]) : POKES28+T, 0: 
NEXT 
FORT=53160T0O53248: POKET 
,O:NEXT 
X=16384+SCR:FORT=0T0255 
STEP4 

POKEX+T, RND(@)*25+134:P 
OKEX+T+1, RND(@)*48+58:P 
OKEX+T+2, RND(@)*25+16 
POKEX+T+3, RND(@)*48+170 
:NEXT 
PRINT"{CLR} {BLU}, e000. 


NEW GAME SE 


Prrrrrrfvf# fh rrinrrrrrrree 


Wy, 
Prrrnrrrnrrte f 


FORT=]1TO8:PRINT", "SPC(3 
8)",";:NEXT 
PRINT", [8 SPACES}, ;2705 


Prfrprrtirtrrfrfrrrrree 





‘K 89¢ 


900 


9168 
926 


936 


949 


956 


| 960 


9768 


980 


996 
1660 


1610 
10290 


1636 


18468 


1850 


1860 


1876 


1680 
16968 
11986 


1116 


. 1120 


1136 


1146 


1156 
1160 
11.78 
1189 
11.98 
1200 


1210 


{8 SPACES},"; 
FORT=8TO3:PRINT", 

{8 SPACES}],£73 

{28 SPACES} {BLU}, 

{8 SPACES},";:NEXT 
PRINT", {8 SPACES}; ,+¢e08 
rrrrrrnrnrrnrertefrnrefre 

{8 SPACES]},"; 
FORT=)TO8: PRINT", "SPC(3 
8)","::NEXT 

PRINT"{BLU) »pepeeercane 
LULU ELI BERL ALE UL Senta ab adit Sid ted 
PRINT" {BLU} peeeeeeeeeee 
rirht ttf tf tf tt tee et eee ae 
been 7 2POKE2023, 44: POKE 
56295,6 

PRINT" {HOME}[(106 DOWN] 
{RVS}"sPpc(10)"E73 

{4 SPACES} SCORE=9900000 
{4 SPACES}" 

PRINT" {RVS}{UP}"SPC(16) 
"{4 SPACES}]SCOREEX9 

E6 AI{4 SPACES] 

PRINT" {RVS}"SPC(10)" 

{2 SPACES]LEVEL=88 SHIP 
S=0{2 SPACES}" 

PRINT" {RVS} {UP} "SPC(10) 
"{2 SPACES} LEVELEX4 

E2 AJ SHIPSEXIEAA 

{2 SPACES]" 
POKE53184,18:POKE53200, 
60: POKE53232, 209 


RETURN 

REM :trz3:22: TITLE SCR 
EEN 223rte2222 
POKE53178,0:POKE53179, 


@:POKE251,48 
POKE53280,0:POKE53281, 
@:PRINT"{CLR}"; 
L$(@)="ROOKIE":L$(1])=" 
ADVANCED":LS(2)="PRO": 
L$S(3)="EXPERT" 
SPS="E739{RVS}17 RIGHT) 
{27 SPACES]}" 

PRINT" {3 DOWN} "SPS:PRI 
NT" {RVS}"SPC(13)" OM 
{SPACE]I C RON “":PRI 
NTSPS 

PRINT" {DOWN} £63 

[3 SPACES}SELECT A SKI 
LL LEVEL AND GET READY 


PRINT" {2 DOWNJE1I"SPC( 
18)"YOUR SELECTIONS AR 
E..«-":SP=1)3 
PRINTSPC(SP)"(WHT} 
{DOWN }F1 EXPERT" 
PRINTSPC(SP)"F3 ... PR 
oO" 

PRINTSPC(SP)"F5 ... 
VANCED" 
PRINTSPC(SP)"F7 ... RO 
OKIE" 
IFSL>HYTHENHY=SL:WD=LD 
PRINTSPC(2)" (DOWN) 
[CYN}LAST GAME'S SCORE 
-"SL"ON "LS(LD)"." 
PRINTSPC(2)"HIGHEST SC 
ORE YET:"HY"ON "LS(WD) 
A(3)=1:A(6)=2:A(5)=3:A 
(4)=4 
Z=PEEK(203):IFZ>6ORZ<¢3 
THEN1169 


AD 


X=A(Z) :DF=X-1 
IFX<1THEN11690 

RETURN 

REM :::::: DOUBLE CHAR 
ACTERS tf22t::8 

POKE 53280,0:POKE53281). 
(6) 

r 








1215 


1229 


1230 


1240 


1256 


1260 
1270 
12868 
1290 
1368 
1319 
1326 


1338 
1346 


1356 
1360 
1370 


1386 
1398 


1490 


1416 


1426 


1430 


1440 


1458 


1466 


1470 


1480 


1496 
1508 


15198 
1520 


1538 
1546 
1558 


15606 
1576 


PRINT" |CLR}{18 DOWN} 
{YEL}CREATING NEW CHAR 
ACTER SET...PLEASE WAI 
POKE56334, PEEK(56334)A 
ND254: POKE], PEEK(1)AND 
251 

B=15360 :A=53252:FORK=0 
TO63:FORT=0TO3 
POKEB+K*8+T*2, 255-PEEK 
(53248+K*8+T) : POKEB+1+ 
K*8+T*2,255-PEEK (53248 
+K*8+T) 
POKE)5872+K*8+T*2,255-— 
PEEK(A+K*8+T ) : POKE1587 
3+K*8+T*2, 255-PEEK(A+K 
*8+T) 

NEXT:NEXT: POKE],55:POK 
E56334,1 

REM 228282283 
ES #3328882 
SA=51 968+49 
FORT=0T0149: READVS 
LS=LEFTS (VS, 1.) 
IFASC(LS )>64THENHN=ASC 
(L$)=-55 

IFASC (LS) <«<65THENHN=ASC 
(L$ )-48 

RS=RIGHTS (VS,1) 
IFASC(RS )>64THENLN=ASC 
(R$)-55 

IFASC(RS )<65THENLN=ASC 
(R$)-48 

B=HN*16+LN: POKESA+T,B: 
NEXT 
POKE53265, 27: POKE56333 
,127:POKE788, 6: POKE789 
, 283 
POKESA+109, PEEK (648)+3 
: POKE53274,129 

DATA A5,FD,29,901]1,AA,49 
,01,A8,BD,B2,CF,8D,1C, 
DO 

DATA BD,B4,CF,8D,1D, Da 
,BD,B6,CF,8D,17,D8,BD, 
B& 

DATA CF,8D,18,D0,BD,BA 
,CF,8D,15,D0,AD, 1E,D9, 
99 

DATA BC,CF,AD,1F,D8,99 
,BE,CF,A9,01,8D,19,D8, 
A5 

DATA FD, 29,01,0A,0A, 0A 
,AA,AG,08,84,FE,A9,90), 
85 

DATA FC,BD,C8,CF,9A, 99 
,08,08,909,06,A5,FC,65, 
FE 

DATA 85,FE,BD,D#,CF,99 
,01,D8,8A,84,FF, 29,87, 
AS 

DATA BD,E®,CF,99,27,D0 
,BD,FO,CF,99,F8,07,A4, 
FF 

DATA 1.8,26,FC,E8,C8,C8 
,C8,)8,D8,CD,A5,FE,8D, 
18 

DATA D@,AD,1F,D0,E6,FD 
,A9,00,8D,12,D0,AD,8D, 
bc 

DATA 29,01,F0,03,4C, 31 
,EA,4C,BC,FE 


16 SPRIT 


REM tittitt2:%2: GAME SE 
TUP tresetrts: 
DIMQ(3,2,15) 

FORD=98TO3 :FORK=8TO2:FO 
RT=0TO1L5 

READV: IFK=2THENV=15-V 
IFK=1THENV=V*32+31 


Q(D,K,T )=V:NEXT:NEXT:N 
EXT 

RETURN 

DATA 1,1,1,1,1,1,1,1,1 





1586 
15908 
1600 
1610 
1620 
1639 
1640 
1.658 
1660 
1676 


1688 | 


aS eso GS BS) Raps Ue Fs be EN Ts 


Cy ‘ig, or, i Cy ir = = 7 i? le} i i iad i = i Bead a] Ll LT = be 


20 before typing in. 


33CE:A2 
33D6: 80 


| 33DE:A9 


33E6:A9 
33EE:B] 

33F6:E6 
33FE:60 
3406:70 
340E:00 
3416:CO 
341E:79 
3426:09 
342E:00 
3436:06 
343E:006 
3446:603 
344E:008 
3456:E0 


| 345E:00 


3466:00 
346E: 80 
3476:08 
347E:80 
3486:06 


| 348E:00 


3496:E0 
J349E:C6 
34A6:00 
34AE: 00 
3466:088 
34BE:00 
34C6:FE 
34CE:09 
34D6:C8 
34DE:18 


| 34E6:00 


34EE:00 
34F6:80 
34FE:00 
3586:61 
350E:06 
3516:86 
351E:081 
3526:00 
352E:00 
3536:60 
353E:068 
3546:38 
354E:008 
3556:FC 


| 355E:E@ 


3566:00 
356E:600 


314) 
De 
39 
90 
AE 
AF 
4) 
14) 
OF 
14) 
5 ]3) 
OG 
i] 4) 
0a 
i) 4) 
F8 
OF 
a) 4) 
69 
Ba 
4) 5) 
4) 4) 
00 
ols) 
LF 
1) 4) 
308 
() 
4) 
ey) 
a) 4) 
o)4) 
7P 
14) 
BO 
Li) 4) 
4) 
BO 
Be 
EG 
7F 
a] 
EO 
a) 4) 
4) 
15) 
Bo 
a} 5) 
iF 
4) 
86 
a1) 
Oa 


BA 
F8 
B85 
BS 
9) 
EG 
Oo 
14) 
ce 
1F 
Li) 3) 
a5) 
i) 4) 
Oa 
Oa 
4) ) 
FO 
BE 
Bo 
So) 
s]4) 
a] 
08 
Li} 4) 
BO 
TF 
Li) ) 
a ]) 
Li) 
15) 
1%) 
88 
BO 
38 
a} 4) 
Li} 4) 
iS] 
14] 
6] 5) 
i) 4) 
80 
LF 
Ba 
i] 4) 
2) 5) 
5) 5) 
18 
[5] 
= 14) 
TF 
15) 
1 6) 
a) 4] 


9D 
608 
AF 
BO 
BO 
Bl 
Be 
3c 
88 
8g 
Ce 
15) 
ae 
14) 
Oa 
3F 
Bo 
EO 
a) 4) 
a) 4) 
15] 5) 
i] 5) 
Bo 
OF 
3) ) 
EO 
86 
Ba 
06 
iy 6) 
a) 5) 
TF 
5] 


ch 
68 
OG 
Cl 
De 
OB 
ce 
519) 
FO 
3c 
5) 5) 
5) 4) 
4) 
4 ]5) 
14 
4] 4) 
FO 
)'5) 


J 89 


Vi) 3) 
i) 4) 
56 
U6 
i) 4) 
ca 
F6 
a] 
88 
16) 
a ]) 


| EG 


4) 4) 
88 
38 
eT) 
14 
4) 
5) 4) 
a) 4) 
14) 
FO 
O7 
Ba 
a) 4) 
BO 
8a 
18 
i} ) 
868 
FE 
86 
a]) 


) Oo 


| Program 2: Omicron—ML 
| section 
| See instructions in article on page 


E8 
85 
Ad 
85 
FS 
De 
a) 4) 
FP 
5) 4) 
3) 4) 
Oo 
ay) 
4) 
4) 
38 
FF 
a) 4) 
68 
4] 4) 
a} 4) 
Li} 
a] 4) 
a) 4) 
OF 
514) 
FO 
14) 
4) 
a] 4) 
a4) 
e] 4) 
7F 
La}) 
a] 
00 
a0 
4) 4) 
6) 4) 
78 
1F 
aT) 
co 
BO 
Ss) 4) 
4) 4) 
s]4) 
Le ]) 
3F 
i) 4) 
4) 4) 
a] 4) 
a1) 
a4) 


EO 
AE 
608 
Bl 
EB 
FO 
00 
414) 
OF 
Oo 
Lo) 
00 
00 
0 
He 
FO 
OF 
a0 
3G 
a) 
80 
aG 
ao 
4 
7E 
QB 
go 
OO 
ao 
4) 
8B 
FC 
JF 
i) 
a) 4] 
a6 
ae 
0 
ao 
Co 
TF 
a0 
a4) 
00 
08 
90 
08 
co 
7F 
ao 
ao 
el) 
oe 


6B 
TF 
5E 
13 
7D 
TA 
98 
A& 
2] 
B3 
CA 
BE 
96 
9E 
Li 
DA 
A3 
BF 
El 
CE 
D6 





3576:88 
357E:80 


3586:EF — 


358E:86 
3596:98 
359E:06 
35A6:09 
35AE: 06 
35B6:00 
35BE:886 
35c6:68 
35CE:86 
35D6:FS 
35DE:99 
35E6:6058 
3I5EE: 99 
35F6:08 
35FE:00 
3606:1F 
360E: 00 
36) 6:F6 
361LE:3F 
3626:088 
3J62Z2E:60 
3636:09 
J63E:99 
3646:78 
364E:086 
3656:E7 
365E:00 
3666:09 
J66E:08 
3676:68 
J67E: 08 
3686:CcB8 
368E:08 
3696:E3 
J69E:00 
36A6:00 


| 36AE:99 


36B6:808 
36BE:08 
36C6:98] 
36CE:008 
3J6D6:E0 
36DE:1F 
J6E6:00 
36EE: 06 
36F6:00 
36FE:686 
3766:88 
376E:66 
3716:E8 
371E:68 
3726:080 
372E:00 
3736:68 
373E:08 
3746: 1F 
S374E:00 
3756:F¢ 
375E:00 
3766:658 
376E:88 
3776:88 
377E:608 
3786:1F 
J/8E: 66 
3796:FF 
379E:F6 
37A6:06 
J7AE: 66 
37B86:38 
37BE:00 
37C6:38 


37CE: 06 


37D6:1E 
37DErF1l 
37E6:093 
37EE:80 
37F6:00 
37FE:00 
3896:80 
380E:78 
3816:E0 


4) 
86 
a5 
ce 
OF 
514) 
1) 
86 
Bo 
BB 
ie] ) 
Fo 
3F 
5) 5) 
5) 9) 
14) 
a) 4) 
83 
a) 4) 
Eg 
a) 5) 
i) 4) 
88 


| 86 


6 ]4) 
OE 
80 
FC 
0) 
a) 4) 
aa 
8g 
a0 
868 
a3) 
FE 
7F 
64) 
80 
a0 
is] 5) 
4) 
iI) 
FO 
6) 
00 
00 
J) 
S16) 
aa 
ag 
FO 
iS] ) 
5) ) 
00 
6 )4) 
a0 
i) 
ae 
FBS 
3D 
88 
4) 


| Oe 


BO 
FO 
Li) 4) 
38 
3D 
a5) 
6a 
Li} 4) 
0G 
F3 
Li) 
OF 
3c 
a) 6) 
a) 
)) 
els) 
Oa 
is] 
a3 
38 


a) 4) 
16 
7F 
Oa 
)4) 
4) 
Be 
4) 4) 
1) 
60 
BE 
a1) 
FS 
a )4) 
o8 
14) 
06 
EO 
1F 
BO 
FS 
OF 
4] 4) 
a], 
5) 4) 
88 
71 
Li} 4) 
C3 
a) 4) 
1) 
88 
ey) 
a) 3) 
c@ 
1) 
C3 
Ba 
5) 
a4) 
4) 
78 
83 
14) 
co 
BO 
Ba 
O68 
BB 
Ba 
O1 
6]s) 
4]) 
La}) 
i )4) 
14) 
a] 4) 
6] 4) 
OF 
i) 4) 
EG 
80 
4) 
Ba 
60 
i) 
OF 
8a 
E3 
i) 
1} 3) 
Ha 
6 ]G) 
CE 
FO 
a4) 
JIC 
708 
6) 4) 
4)) 
00 
15) 
80 
O7 
38 


bi) 3) 
B98 
ES 
OF 
14) 
a) 4) 
Ba 
Oe 
08 
O38 
Fg 
EF 
Bo 
et) 
55) 
86 
4)4) 
i) 3) 
cea 
83 
5) 3) 
1] 5) 
ay) 
Bo 
i) 5) 
08 
FS 
a7 
io) 4) 
88 
88 
0) 
iy 6 
id) 
FC 
fF 
Be 
ag 
88 
8a 
5) 5) 
86 
F3 
C3 
5)6) 
e3) 
6] 6) 
ey) 
i]s) 
La} 4) 
FO 
5) 
21%) 
V5) 3) 
6] 4) 
14) 
06 
a] 4) 
Ec 
1F 
Bo 


08 | 


O68 
14) 
a0 
86 


= Fadl 


1F 
1) 
ils) 
16) 
i) 5) 
5) 
eT) 
OF 
38 
a) 5) 
Bo 
Od 
80 
1s) 
is) 
1E 
70 
FO 
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JBJE:EO 
3826:18 
382E:07 
3836:07 
383E:0F 
3846:00 
JB4E:00 
3856:E6 
385E:e@c 
3866:18 
386E:30 
3876:07 
3B7E:09 
3886:90 
388E:90 
3896:E6 
389E:1cC 
38A6:18 
S8AE: 38 
38B6:67 
J6BBE: 60 
38C6:90 
38CE:78 
J8D6:E9 
JBDE:ce 
38E6:18 
3BEE:63 
38F6:07 
38FE:0F 
3906:00 
390E:1C 
3916:43 
391E:B4 
3926:EA 
392E:3c 
3936:F¢O 
393E:C3 
3946:39 
394E:00 
3956:E3 
395E:PF 
3966:FF 
| 396E:602 
| 3976:088 
397E:03 
3986:2B 
39BE: 7A 
3996:04 
399E:0D 
39A6:7A 
39AE:16 
39B6:1E 
39BE:86 
39C6:0E 
39CE:29 
39D6:7B 
39DE:29 
| 39E6:7B 
39EE:A9 
3J9F6:c9 
J9FE:AE 
3A06:42 
JAGE:AE 
3A16:85 
3A1E:C9 
3A26: 38 
3A2E:98 
3A36:08 
3A3E:B5 
3A46:C6 
3A4E: 682 
3A56:E4 
3A5E:FF 
3A66:B3 
3A6E:865 
3A76:02 


3A7E:20 


3A86:35 
3A8E:69 
3A96:C4 
3A9E:C2 
3AA6:15 
3AAE:18 
JAB6:85 
3ABE:9B 


18. 


1c 
cag 
O6 
BG 
O7 
a3 
83 
18 
ce 
ce 
FO 
14) 
o7 
83 
B7 
18 
EQ 
co 
FQ 
a) 4) 
1) 
83 
38 
18 
gc 
ea 
3) 4) 
a4) 
BC 
42 
tht) 
ED 
18 
FO 
C3 
3F 
3c 
ah) 
E7 
EF 
88 
83 
OG 
81 
38 
7C 
1 
33 
10 
18 
Og 
88 
23 
5] 
33 
31 
AQ 
85 
BO 
OG 
48 
OF 
AQ 
90 
8) 
86 
AE 
FF 
FO 
FA 
A2 
5E 
FO 
BD 
AE 
86 
B3 
85 
AE 
25 
26 
AE 
AQ 
48 


DO 
20 
OF 
BD 


19 
9B 
81 
9). 
80 
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3AC6:B86 
JACE:EA 
3AD6:A5 


| 3ADE: 52 


3AE6:EA 
3AEE: Dé 
3AF6:2C 
3AFE:D0 
3B06: 4A 
3BGE:8D 
3B16:900 
3B1E:20 
3B26:A9 
3JB2E:E8 


| 3B36:45 


JBIE: 26 


| 3B46;:B)] 


3B4E:91 
3B56:14 
3B5E:15 
3B66:AA 
3B6E:8A 
3B76:Dd 
3B7E:20 
3B86:03 
3B8E:D6 
3B96:co8 
3B9E:52 
3BA6:E5 
3BAE:60 
3BB6:85 
3BBE:EA 


3BC6: 26 


3BCE:27 
38D6:04 
3BDE:29 
3JBE6: 0) 


JBEE: EA 


3BF6:07 
JBFE:F3 
3CO6: 30 
ICOE:CF 
3C16:62 
3ClLE:CF 
3C26:D0 
3C2ZE: 29 
JC36:E5 
3C3E:C9 
3C46:7F 
3C4E:CF 
3C56:A4 
3C5E:20 
3C66:9D 
3C6E:BO 
3C76:16 
3C/7E:@D 
3C86:10 
3CBE:C] 
3C96:C6 


JC9E:C9 


3CA6:A8 
3SCAE: 4B 
3CB6:82 
3CBE: 88 


3CC6:74 | 


3CCE:62 
3CD6:EA 
3JCDE:EA 
3CE6:BC 
3CEE: 66 


3CF6:70 ¢ 


3CFE:BO 
3DG6:C9 
IDBE:70 
3D16:9¢0 
SIDLE:C9 


| 3D26:70 


3D2E:90 
3D36:C9 
3D3E: 78 
3D46:B8 
3D4E:D0 
3D56:22 
3JDS5E: 62 
3D66:A9 





3D6E:18 
3D76:18 
JD/E:68 
3D86:18 


JDBE:18 ¢ 
| 3D96:190 


3D9E: 30 
JDAG6: 08 
3DAE: 00 
JDB6: 508 
3DBE:16 
3Dc6:58 
3DCE:9068 
JIDD6:EA 
3DDE: 63 
3DE6:00 
3JDEE:8D 
3JDF6:083 
3DFE:60 
3E06:68 
JEGE:60 
3E)6:Cl 
SJELE:Cl 
3E26:38 
JE2E:38 
3E36:02 
JESE: 2A 
3E46:87 
JE4E:B8 
3E56:80 
3E5E:00 
3E66:Cl 
3E6E:66 
3E76:00 
S3ETVE:Cl1 
JE86:D8 
JESE:CF 
3E96:AD 
3E9E:B4 
JEA6:00 
3EAE:AC 
3EB6:CF 
3EBE: 20 
3EC6:23 

3ECE:Ba 
3ED6:A9 
S3EDE:A9 
3EE6: 00 
3EEE:D8 


3EF6:85 
| 3EFE:38 


3F06:60 
3F6E:85 
3F16:B9 1 
3FLE:4A 
3F26:FB 
3F2E:CA 
3F36:FB 
3F3E:CA 
3F46:6)] 
3F4E:Dc 


| 3F56:AD 


JP5SE:3C 


| 3F66:93 


3F6E:Dc 
3F76:8D 
3F7E:49 
3F86:D0 
3F8E:AD 
3F96:EA 
3F9E:Ba 
3JFA6:BD 


| 3FAE:4A 


S3FB6:C1 
3FBE:Cl 
3FC6:E0 
3FCE:17 
3FD6:9D 
3FDE:38 


| 3FE6:BD 


3FEE:03 
3FF6:49 
3FFE:A7 
46066:Cl] 
400E:01 








4016:58D 
4091E:97 
4926:De 
402E:c9 
4036:E0 
403E:29 
4046:BA 
404E:84 
4056:EA 
405E:E0 
4066:4C 
496E:03 
4876:20 
407E:E9 
4086:69 
408E:B8 
40996:B0 
409E:20 
40A6:B) 
4BAE:29 
40B86:D4 
40BE:EA 
49c6:coe 
46CE:AF 


| 48D6:A5 


| 49DE:E0 
| 40E6:CF 
| 49EE:C9 
| 40P6:CF 


46FE:00 


4106:082 
410E:Bd 
4116:B] 
411E:BD 
4126:8D 
41l2E:A9 


4136:BD 
413E:B0 © 


4146:CE 
414E:E8 
4156:AD 
415E:68) 
4166:083 
| 416E:96 

4176:9D 
| 417E:9D 
| 4186:A9 
418E:Da 
4196:D0 
419E:Bl 
41A6:Bl1 
4) AE:A5 
4) B6:FO 
4) BE:8D 
41.C6:Cc9 
41CE:03 
41.D6:9D 
4) DE:CA 
41E6:4B 
4) EE:03 
41 F6:FB 
41FE:85 
4206:85 
420E:97 
4216:85 
421E:lE 
4226:A9 
422E:60 
4236:FO 
423E:0D 
4246: 21 
424E:D4 
4256:20 
425E:C2 
4266:60 
426E:9D 
4276:68 
427E:FB 
4286:10 

4296:CB 
429E:85 
42A6:A9 
42AE:29 
42B6:F¢0 


03 


BO 


60 


uC 


| HR 





42BE:A9 24 9] AE E6 AE EG BO AE 
42C6:D@ E4 E6 AF E6 Bl AS AF BD 
42CE:C9 88 DO DA 68 A3 68 EA 3F 
42D6:EA EA E6 FA AS FA 29 OF 92 
42DE:18 65 FB AA BD 98 C5 8D 5c 
42E6:01 D4 A5 BE FO 65 38 ES B3 
42EE:BD 85 BE 8D 68 D4 AS5 A4 E7 
42F6:F@ 03 38 E5 A3 85 A4 BD 24 
42FE:0F D4 AS FD 29 6) AA 49 CO 
4306:01 AS BD B2 CF 8D 1c D@ D? 
430E:BD B4 CF 8D 1D D8 BD B6 Dl 
4316:CF 8D 17 D@ BD BS CF 8D D5 
431E:1B8 DO BD BA CF 8D 15 De 79 
4326:AD LE D@ 99 BC CF AD IF SE 
432E:D@ 99 BE CF A9 @) 8D 19 DD 
4336:D@ A5 FD 29 01 OA BA BA 2F 
433E:AA AO 68 84 FE AQ @1 85 BB 
4346:FC BD C@ CF OA 99 88 DO 57 
434E:98 06 AS FC 65 FE 85 FE 5). 
4356:BD D@ CF 99 81 DOB SA 84 68 
435E:FF 29 87 AS BD E® CF 99 45 
4366:27 DO BD FO CF 99 FS O7 
436E:A4 FF 18 26 Fc ES C8 CB 92 
4376:C@ 18 D@ CD A5 FE &D 10 AC 
437E:D@ AD 1F D@® EG FD AY BB 4c 
| 4386:8D 12 DB AD BD DC 29 B1 7c 
| 438E:F@ @3 4C 3) EA 4C BC FE EB 
4396:EA A2 00 86 AE ES BD 20 58 
439E:C]l FO 82 E6 AE ES EO 10 DB 
43A6:D0 F4 AS AE DO BO) 6B 4C BA 
43AE:8A CA 08 68 88 OB BB BB 2D 
4356:08 00 06 O69 OM OB BB OB 3D 


Chain Reaction 


Article on page 14. 


CK 18 Y=30:DIM U(Y),H(Y),L(Y), 
J(Y),T1(Y),CA(Y),CD(Y),R 
T(Y),TR(Y) 
POKE 53269,0:PRINT"{CLR] 
":POKE 53286,11:POKE 532 
61,11:Y=RND(-TI) 
MLS$="EI9"+CHRS(8)+"ExX9<" 
+CHRS (3)+"E24XJ"+CHRS(16 
)+CHRS(248)+"LEBIETI":PO 
KE 835,60 
POKE 53272, PEEK(53272)AN 
D 248 OR 12 
POKE 836,288:POKE 830,00: 
POKE 831,216: POKE828,0:P 
OKE 829,56:POKE 56334,@ 
POKE 1,51:MLS=ML$:SYS(PE 
EK (51 )+256*PEEK(52)):POK 
E 1,55:POKE56334,]) 
FOR I=12296 TO 12487:REA 
D J:POKE I,J:NEXT 
YY=7 :XX=]2:GOSUB530:PRIN 
T“{CYN}]CUAGI MDACOGKI" 
YY¥=11:XX=8:GOSUB5360:PRIN 
T“IBJPDM KE LHAYDMN 
{[YEL}JQ{CYN} KM L[YEL}R 
168 GOSUB7@6:IF KTS$<>"1" AN 
D KTS<>"2" THENIOO 


MC 20 


30 
XJ 40 


PR 50 


6o 


Cit) 
88 


90 


FQ 1106 NP=VAL(KTS):IF NP=2 THE 
N YY=15:GOTO168 

CS 120 COMPUTER=1 :YY=15:XX=9:G 
OSUB530:PRINT"{CYN}]CKJL 
BODM EGMNO {YEL}Y{CYN} 
[SPACE}KM {LYEL}I 

SE 130 GOSUB70@:IF KTS$<>"¥" AN 
D KTS<>"N" THEN).30 

HE 1486 TU=@:IF KTS="Y" THEN TU 
=] 

XX 158 GOTO19@ 

HF 168 YY=15:XX=7:GOSUB530:PRI 
NT" {CYN}IBJPDM KE SKYNO 
GCTN LYEL}JQ{CYN} KM 
{ YELJR 

AD 1780 GOSUB70@:IF KTS<>"1" AN 
D KT$<>"2" THEN179¢ 

HF 180 POKE 828, VAL(KTS)=-1:F2= 


| PR 


59 | 


| RE 





cQ 198 


EK 200 


210 


220 


230 


240 


250 


260 
270 


280 
290 
JOB 


318 


AC 


320 


330 


340 
350 


368 
376 
386 
398 


400 
419 


420 


430 
449 


450 


460 


DJ 470 


HS 480 


PEEK( 828) 
YY=]19:xXX=14:GOSUB530:PR 
INT" {CYN}LHDAND WAGO" 
M$="0E2 YIP{DOWN} 
{4 LEFT}EH3{2 SPACES} 
EN |DOWN} 14 LEFT] EH3 
{2 SPACES}EN3{DOWN] 
(4 LEFT}LE2 PqJe@":BS=" 
[3 UP}":PL(@)=15:PL(1)= 
18 
PS(1)="V LDOWN}12 LEFT] 
{2 SPACES}":PS(2)="V 
{DOWN} {2 LEFT} v":P$(3) 
="VV{DOWN]{2 LEFT} V":P 
$(4)="VV{DOWN] 12 LEFT]}V 
y" 
UP=79: LM=9] :RM=251: DN=2 
87:CL(0)=15:CL(1 )=l10:MV 
=) :MA=]1 :MD=) 
FOR J=0 TO 24:POKE 5427 
2+J,0:READ X:POKE 54272 
+J,X:NEXT 
FOR V=l TO 3@:READ J(V) 
:NEXT 
SV=53248:MX=79:MY=92:PO 
KE 2042,11:FOR I=8 TO62 
:READ Q:POKE 704+1,Q:NE 
XT 
FOR I=] TO 30:READ cCD(I 
),CA(1):NEXT 
POKE 53288,6:POKE 5328) 
,6:PRINT CHRS$(31)"{CLR] 
{BLU}"; 
FOR I=8 TO 23:PRINT" 
{RVS}139 SPACES}" 
POKE 1063+(48*1I),160:P0 
KE 55335+(49*1),6:NEXT 
PRINT"{RVS}139 SPACES] 
{HOME} | BLK}":POKE2023,1 
60: POKE56295,6 
POKE 53281]1,11:PRINT SPC 
(14)"{CYN}CUAGI MDACOGK 
I {BLK} |[DOWN}" 
FOR I=l1 TO 5:PRINT SPC( 
8 )MSBSMSBSMSBSMSBSMSBSM 
$:NEXT 
PRINT" { DOWN! {RVS]1LBLU] 
{32 SPACES} |HOME}": POKE 
SV+41,7:GOSUB690 
=TU:GOTO379¢ 
FG=0:FOR H=] TO 36:IF U 
(H)>=7(H) THEN FG=1:GoOs 
UB710 
NEXT: IF FG=] THEN35@ 
X==-X+1:PN=PN+1 
IF COMPUTER AND NOT X T 
HEN POKE 53269,0:RD=0:G 
OTO976 
POKE SV+41,CL(X):GOTO054 
a 
H=MV 
IF L(H)<>X+l1 AND L(H) T 
HEN 389 
U(H)=U(H)+]) :FS(X)=FS(xX) 
+l1:IF L(H)=0 THEN L(H)= 
X+1 ) 
GOSUB510:PRINT PS(U(H)) 
IF U(H)>=J(H) THEN POKE 
53269,8:GOSUB710:GOTO3 
50 
GOTO37¢ 
XX=15:YY=24:GOSUB530:PR 
INT" {CYN}FAIJD{RVS}{BLU] 
[OFF] |CYN]KXDM|HOME]";: 
FOR Z=1 TO 200@0:NEXT 
XX=8: YY=24:GOSUB530: PRI 
NT" LMDNN{LRVS}{ BLU] 
{OFF} 1 CYN} EGMDPBOOKI 
{RVS}{BLU} LOFF} {CYN}OK 
[RVSJL BLU} lOFF}{CYN]LH 
AY |HOME }" 
WAIT 56320+X*F2,16,16:R 
UN 
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95 


492 IF L(O)<>X+l THEN FS(xX) 
=FS(X)+U(0):FS(-X+1 )=FSs 


(-X+1 )-U(0) 


980 XT=0:FOR I=] TO 30:IF L | BR 1318 
(I)=2 THEN]OBO 


999 T1(XT+1l )=I:XT=XT+1 


DATA 48,62,8,38,12,12, 
12,12,108,124,0, 236,18 
8,128,112,129,198 


508 


510 


640 
650 


660 
670 


680 
690 


700 


7198 


726 


748 
756 


760 
776 
780 
790 
B00 
B19 
620 
630 
B46 
B50 


B60 
870 
888 
890 
900 
910 
920 


930 
949 





L(O)=X+1:U(0)=U(0)+1:G0 
SUB5260:PRINT PS(U(O)):R 
ETURN 
XX=5+(4*CA(H)):¥yv=4*cp( 
H):POKE 646,CL(X):GOSUB 
530:RETURN 


1:GOTO68a 

IF MY+4>RM THEN55@ 
MY=MY+32 :MV=MV+1 : MA=MA+ 
1:GoTO68a 

IF MY=-4<LM THEN556 
MY=MY=32 :MV=MV-1 :MA=MA- 
1 

GOSUB690:GOTO558 

POKE SV+4,MY:POKE SV+5, 
MX :RETURN 

KTS=""}]POKE 198,8:WAIT 
([SPACE]198,1:GET KTS:RE 
TURN 

POKE 54276,64:POKE 5429 
@,128:POKE 24276,65: POK 
E 54298,129:POR V=l1 TO 
|SPACE}4 

GOSUB51@8:POKE 646, PL(X) 
tPRINT"({RVS}(UP}{LEFT}" 


xT 

U(H)=U(H)-J(H) 

IF U(H)>@6 THEN GOSUB519¢ 
tPRINT PS(U(H)):GOTO77¢ 
L(H)=8 

IF CD(H)=1 THEN79¢ 
O=H-6:GOSUB496 

IF CA(H)=1 THEN81@ 
O=H-1:GOSUB496 

IF CA(H)=6 THENS836 
O=H+1:GOSUB49¢ 

IF CD(H)=5 THEN&5@ 
O=H+6:GOSUB499 

IF FS(9)<1 OR FS(1)<1 T 
HEN466 

RETURN 

LP=0:IF CD(H)=l THEN89¢6 
IF L(H-6 )=2 THEN KZ=H-6 
:GOTO960 

IF CA(H)=1 THEN919 

IF L(H-1)=2 THEN KZ=H-1 
:GOTO968 

IF CA(H)=6 THEN9390 

IF L(H+1)=2 THEN KZ=H+] 
:GOTO960 

IF CD(H)=5 THEN RETURN 
IF L(H+6)=2 THEN KZ=H+6 
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1600 
1618 


1026 


1116 


1120 


1130 


1140 


1158 


1168 
1178 


1199 
1260 
1218 


1220 


1238 


1246 


1250 


1266 


1276 


1280 


| 1298 


NEXT: RD=0 
XX=16:YY=24:GOSUB539:P 
RINT" {CYN}OUGITGIF 
[HOME] " 

FOR I=38 TO 308-XT STEP 
-1:RT(I)=0:NEXT:FOR I= 


U(H)=l THEN RT(I)=4:G 
OTO1179 

IF U(KZ)+l=J(KZ) THEN 
{SPACE} RT(1I)=1:GOTO117 
4) 

IF U(H)+2>=J3(H) AND LP 
=] AND U(KZ)+)< J(KZ) 
{SPACE}THEN RT(1I)=5:GO 
TO117@ 

IF U(H)+2>=J(H) AND LP 
=@§ THEN RT(I)=3:GOTOL11] 
72 

IF U(H)+2>=J(H) THEN R 
T(I)=2:GOTO117¢ 


IF LP=0 THEN RT(I)=2:G 
OTO1176 

RT (I )=1 

NEXT I:TC=):ZT=0:AB=6 


NEXT: IF Z2T>@ THEN1210 
AB=AB-1 :GOTO118@ 
DH=INT (2ZT*RND(J))+1:HD 
=TR(DH)sH=T1 (HD) 
XX=15:YY=24:GOSUB530:P 
RINT" {RVS} {BLU } 

{11 SPACES} |HOME}";:FG= 
FG+]1:GOTO419 

DATA 126,182,162,126,1 
G2,102,192,9,192,162,1 
82,102,102, 102,126,9 
DATA 126,98,96,96,96,9 
8,126,0,126,98,96,129, 
96,98,126,0,126,98 
DATA 98,120,96,96,96,0 
,126,102,96,118,102,18 
2,126,909, 126,990, 24, 24 
DATA 24,998,126,9,96,96 
,96,96,98, 98,126,8,1682 
,118,126,126,119,162 
DATA 162,8,99,119,127, 
107,99,99,99,9,126,162 
,102,102,102,102,126 
DATA @,126,102,102,126 
, 96, 96,96,8,126,1082,19 
2,126,128,188,102,9 
DATA 126,162,96,126,6, 





1326 


1330 


DATA 230,0,231,162,182 
,126,182,102,231,8,8,8 
,16,124,222,198,254 
DATA 124,198,198,198, 2 
14,254,238,198,08,231,1 
82,102,102,102,608, 24 


528 XX=5+(4*CA(O)):YyY=4*cD( 1 To xT HQ 1348 DATA 0,0,4,9,12,64,19, 
Sus BORE Sao Ch Ut) sG08Ue 19309 H=T1(I):GOSUB872 0,0,0,9,12,64,12,8,8,4 
ay yas SRS aR PORE ain 1646 IF FG=l AND LP AND U(H  ,8,12,128,12,0,0,50 
Slee Thera )>@ THEN1L220 CF 1350 DATA 244,47,2,3,3,3,3, 
POKE 782,XX:SYS 65520:R 1650 IF U(H)+l1=J(H) AND LP= 243,4,4,4,4,3,3,4,4,4, 
ae eaeE Raoeo A 1 AND U(KZ)+l=J(KZ) TH 4,3,3,4,4,4,4,3,2,3 
bee | | EN RT(1)=6:GOTO117¢ XK 1368 DATA 3,3,3,2,0,0,0,0,08 
550 J¥=1.5= (PEEK (56320+X*F2) 1968 IF U(H)+)l=J7(H) AND LP= ,8,128,09,30,192,0,3,19 
AND15 ): JB=PEEK(56320+x* 1 THEN RT(1I)=2:GOTO117 2,0,3,192,8,3,8,0,0 
P2)AND16 g JA 1370 DATA 0,0,0,0,0,08,98,0,0 
560 IF JB=8 THEN409 16076 IF U(H)+l=7(H) AND LP= ,8,8,98,8,08,0,9,8,8,98,9 
270 IF JY¥=8 THEN JY=3 6 THEN RT(I)=1:GOTO117 ,8,8,8,8,8,8,8,192,9 
580 IF JY<l OR JY>4 THEN559 g CB 1380 DATA 3,192,8,3,192,9,3 
590 oN JY GOTO690,620,649,6 1689 IF J(H)=2 AND LP=0 AND ,120,0,39,8,8,8,1),1,1, 
U(H)=1 THEN RT(I)=1:G 2,1,3,1,4,1,5,1,6,2,1 
610 REA 1890 IF J(H)=2 AND LP=0 AND DAG IE bl otatiy 3,5 
U(H)=0 THEN RT(I)=4:G eddy Oy tty Ly ty oy ty Sy 
620 IF MX+4>DN THENS50 Se a DQ 1468 DATA 4,4,5,4,6,5,1,5-2 
630 MX=MX+32 :MV=MV+6 :MD=MD+ 1100 IF J(H)=2 AND LP=) AND 15735 524,5,5,5,6 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





DOS Window 


See instructions in article on page 


CA76:60 
CA78:90 
CA80:08 
CA88:08 
CA9@:FE 
CA98:8D 
CAA@:CA 
CAA8:8D 
CAB9:58 
CABSE:0B 
CAC@:8B 


| CACB: FF 


CAD :08 
CAD8:@2 
CAEO:990 
CAE8:78 
CAFU :BD 
CAFS:05 
CBO :00 
CBO8:BD 
CB16:D9 
CB18:80 
CB28:E8 


| CB28:Dad 


CB30:8E 
CB38:02 
CB40:FF 


| 30 before typing in. 


Program 1: DOS Window Object 
File 


M$:GOSUB510: PRINT" {BLK} 1188 FOR I=] TO XT:IF RT(I) 
(UPJ {LEFT} "M$ =AB THEN TR(TC)=I:ZT=Z | cagg:4c 94 CA 3D GO 06 BO BO 6E 
738 FOR TD=] TO 125:NEXT:NE T+l:TC=TC+) CA68:00 GO GB BG BB BO GB BB FD 


08 BB OB BB BH BH BG Bb 
80 08 OB BO BB BB GBB 
00 88 86 BO BB BB 
60 OO FF 08 63 BO) 
F6 3) EA 78 AD J4 93 DD 
92 CA AD 15 @3 

A9 B2 8D 14 63 AY 
15 83 A9 68 BD BB 
68 AD 8D @2 C9 G4 DO 29 
AS .c5 C9 12 D@ O85 
CA Fé 863 6C 92 CA AY 
8D 8B CA 28 E7 FF AQ 2A 
85 D4 20 90 FF AD 86 
8D BF CA. 
CA AD 2) DO 
A2 88 BS 88 9D BB 
06 84 9D 68 Al BD 88 
9D 68 AZ BD BO 66 
A3 BD 88 O7 9D 8B 
08 D8 9D BB AS BD BO B5 
9D 88 
A7 BD 80 DB 9D GO 
DO C& 58 AY 
A9 93 20 D2 FF A2 68 E2 
20 DO BE 86 O2 BE B87 FA 
20 66 CD AY 92 28 D2 2D 
A2 27 AQ 40 9D C8 


:GOTO968 162,126,0,126,99,24,24 | CB48:CA 10 FA 20 93 CD A2 88 C3 
958 RETURN 124, 24, 24,0,124, 102 CB59:8A 9D 86 D8 ES DB FA 26 C2 
960 LP=1:RETURN 1368 DATA 102,124,102,102,). | CB58:CB CE 20 E4 FF FO FS &SD IF 
978 FOR I=] TO 30:RT(I)=0:T 24,0,56, 24, 24,24, 24,24 | CB60:8D CA C9 44 DO OF A2 O9 FF 
R(I )=08:NEXT ,60,0,60,54,6,12,468 CB68:86 FD 20 84 CD A9 @1 8D B3 








CB76:29 
CB/8:68 
CB88:CE 
CB88:79 
CB90:6B 
CB98:BD 
CBA® :A2 
| CBAS: 66 
CBB@:BD 
| CBBB:A6 
CBCA: 08 
| CBC8:E8 
CBDO:95 
CBDS:88 
CBE@:AD 
CBE8:CA 
CBFO:21 
CBF&:C6 
CCOB:A9 
cces:4c 
CC10:081 
Cc18:43 
cc26:4c 
CC28:61 
CC30:4C 
CC38: 20 
CC46:86 


CC48:03 


CC5@:AD 
CC58:BD 
| CC68:20 
| cc68:c9 


CC70:86 ; 


CC78:4C 
cc80:01 
CCBS8:8D 
CC9@:CA 
CC98:A6 
CCAQ:FF 
CCAB:A9 
CCB@:4C 
CCBS8: BE 


CCCO:3B « 


CCC8:6E 
CCDO:CD 
| CCDS: BD 
CCEO:F3 
CCEB: 26 
CCFO:03 


CCF8:20 A 
CD@O6:52 ? 


CD@8:A5 
CD10:A6 
CD18:20 
CD20: 20 
CD286:17 
CD30:A2 


| CD38:FO 1. 


CD490:c9 
CD48:0A 
CD50:4C 
CD58:77 
CD60:20 
CD68:CF 
CD/7O:F5 
CD78:FD 
CD88:A9 
| CDB8:BE 
CDb9@:Dé 
| CD98:CD 
CDAG@:A9 
CDA8:A5 
CDB@:FF 
CDBB:A2 
cbce:18 
CDCB:FO 
CDDé : DO 
| CDD8:9@5 
| CDE@:CD 
CDES8:FC 
CDF@: 91 
CDF8B:CE 
CE@O :AG 





CE@8:FB EE. 8E CA 68 A4 CC FO FD 
CE10:98 A4 D3 Bl Dl 89 88 9) BS5 
CE18:D). 260 CB CE 20 E] FF DO 66 


| CE26:05 68 68 4C 29 CB 26 E4 C9 


CE28:FF FO E2 C9 OD FB 2E C9 4D 
CE30:14 FO 2B AE SE CA E@ 13 DS 
CE38:F8 D3 C9 7F 18 CF C9 28 E7 
CE40:30 CB C9 22 FB C7 AB OB 2C 
CE48:9]1 FB E6 FB EE SE CA 20 Bl 
CE5@:D2 FF A4 D3 Bl Dl 29 7F CF 
CE58:9]) Dl 4C ®D CE 6@ AE 8E 71 
CE60:CA F@ AA C6 FB CE 8E CA 64 
CE68:20 D2 FF 4C @D CE A2 86 7E 
CE7@:A@ OA 18 26 FO FF A2 46 FS 
CE78:A9 260 26 D2 FF CA 10 FA 6A 
CE8O:A2 O87 AG OO 18 20 FO FF 68 
CE88:60 26 DY CD 28 OD CE 28 69 
CE9@:F6 CD 28 6D CE 29 BE CE 35 
CE98:AD 8D CA 26 AS FF AO 30 94 


CEAG:20 AB FF AY 3A 29 AS FF B6 | 


CEA8:A8 69 BY 63 CA FO O86 20 4A 
CEB@:A8 FF C8 D#@ F5 28 AE FF 56 


|CEBS:20 E7 FF 4C 4B CB A5 BA B4 


CEC@:20 Bl FF AY GF 85 BY 20 JA 
CEC8:93 FF 68 AD 8B DD A2 88 2C 
CED@:48 29 10 AS O62 10 BC AX FA 
CED8:BA 9D BF 64 B9 89 DD E8 BA 
CEE@:48 29 FO 4A 4A 4A 4A 18 D7 
CEE8:69 BO 9D BF 04 E8 68 29 D4 
CEFO:0F 18 69 BO 9D BF O64 EB 3). 
CEF8:88 J1@ DC AD 68 DD 60 24 Fl 
CFOO:12 20 20 26 20 28 28 20 98 
CPO8:20 20 28 28 20 20 20 20 AT 
CF10:20 26 260 20 20 28 20 28 AF 
CF18:208 28 28 20 20 286 20 20 B7 


CF20:28 20 20 20 26 20 20 20 BF 


CF28:28 92 28 44 3A 44 49 52 &c 


CP30:45 43 54 4F 52 59 28 20 1B 
| CF38:20 20 4E 3A 46 4F 52 4D BE 


CP40:41 54 28 28 28 4C 3A 4C 8E 
CFP46:4F 4) 44 2C 38 @D 20 49 AA 
CP50:3A 49 4E 49 54 49 4] 4C 54 
CF58:49 SA 45 20 20 26 5F 3A 58 
CP60:53 41 56 45 26 20 260 20 FA 
CF68:20 5E 3A 4C 4F 41 44 2C EF 
CFP70:38 2C 31 OD 20 56 3A 56 53 
CF78:41 4C 49 44 4) 54 45 20 3F 
CF80:20 26 20 20 43 3A 43 4F 17 
CF88:50 59 20 20 28 26 20 55 C3 
CF90:3A 52 45 53 45 54 OD 20 75 


-CP98:52 3A 52 45 4E 4] 4D 45 E5 
| CFA@:28 28 20 20 28 26 20 53 73 


CPA8:3A 53 43 52 41 54 43 48 Fl 
CFB@:0D OD 12 53 54 41 54 55 37 
CFB8:53 3A 88 12 50 52 45 53 SB 
CFCO:53 20 52 45 54 55 52 4E 9B 
CPC8:2C 20 4F 52 28 53 54 4F DB 
CFD@:58 92 B88 12 4E 45 57 26 B4 


| CFD8:12 46 49 4c 45 4E 41 4D 34 
CFEG:45 3A 92 @@ 12 4F 4C 44 AE 
| CFE8:28 46 49 4c 45 4E 4) 4D 4B 


CFFO:45 3A 92 @@ 12 4E 41 4D AD 
CFF8:45 2C 49 44 3A 92 00 60 CF 


Program 2: DOS Window Boot 


XA 10 PRINT" {CLR} ": I FA=0THENA= 
1:PRINT"{2 DOWN} £83 
{2 SPACES]}LOADING...":LO 
AD"DOS-WINDOW.OBJ",8, 1 
EF 26 CLR:DIM T(4):A$=CHR$(157 
)+CHRS (157 )+CHRS(157):NS 
="DOS-WINDOW" 


| HC 30 PRINTCHRS(147)SPC(134)NS$ 


: PRINTSPC(43)"WANT TO SE 
T THE T.O.D. CLOCK 7? Y"; 

JK 40 PRINT A$;:INPUT BS: IFBS< 
> "Y" THENSO 


|} | QE 5@ PRINT: INPUT"{2 SPACES}HO 


URS{4 SPACES}{5 LEFT}";T 
(1):IFT(1)>1L2THENPRINT" 
{3 UP}":GOTO5¢ 

PR 60 INPUT" {DOWN]MINUTES 





{4 SPACES}|4 LEFT}";T(2) 
: IFT(2)>59THENPRINT" 
[3 UP}":GoTO6s 

GE 78 INPUT"|DOWN}SECONDS 
{4 SPACES}{4 LEFT}";T(3) 
: IFT(3)>S9THENPRINT" 
[3 UP}":GoTO7@ 

ER 80 FORI=1TO3:H=INT(T(I)/16) 
:L=T(1)-10*H:T(1I)=16*H+L 
:NEXT 

AB 98 C=56587: POKEC+4, PEEK(C+4 
JAND127 

DG 108 FORI=60TO3: POKEC-1,T(I+1 
) :NEXT 

GA 118 PRINT"{2 DOWN}]1.T0O USE 
{[SPACE}"NS", PRESS CTRL 
-D.":PRINT 

MQ 120 PRINT"2.PRESS RETURN AT 

THE "CHRS(18)"STATUS:" 
CHR$S(146)" LINE, TO" 

JA 136 PRINTSPC(2)"CLOSE WINDO 
W AND RETURN." 

GH 1480 PRINT"{DOWN]3.TO DEACTI 
VATE, PRESS RUN/STOP-RE 
STORE." 

XE 150 PRINT"4.SYS 51808, TO R 
EACTIVATE.":SYS51808:NE 
W 


Power BASIC; Text 
Framer 
Article on page 27, 


Program 1: Text Framer—128 
Version 


1@ REM COPYRIGHT 1987 COMPUTE! 
PUBLICATIONS, INC. - ALL R 
IGHTS RESERVED 

20 PRINT"{CLR}{3 RIGHT}COPYRIG 
HT 1987 COMPUTE! PUB., INC. 


38 PRINTTAB(9)"ALL RIGHTS RESE 
RVED":PRINT"{ DOWN}...LOADIN 
G ML" 

40 FORI=49152T049448: READA: POK 
EL,A:X=X+A:NEXT 

58 IFX<>375@65THENPRINT"ERROR I 
N DATA STATEMENTS.":STOP 

60 DATA 76,17,192,0,9,;19,198,1, 
64,66 

70 DATA 85,73,74,75,8,0,0,173, 
3,192 

80 DATA 201,38,176,28,173,4,19 
2,201,23,176 

96 DATA 2),173,5,192,248,16,17 
3,6,192, 2498 

106 DATA 11,24,173,3,192,109,5 
,192,261,39 

110 DATA 144,3,76, 72,178, 24,17 
3,4,192,199 

126 DATA 6,192,281, 24,176,242, 
173,136;27133 

130 DATA 252,56,169, 216, 229, 25 
2,14),15,192,174 


| 148 DATA 3,192,134, 25),174,4,1 


92,248,11,169 

158 DATA 40,141,14,192,32,238, 
192,262, 208,259 

168 DATA 173,18,192,141,16,192 
,32,12,193,174 

178 DATA 5,192,169,1,141,14,19 
2,173,8,192 


| 188 DATA 141,16,192,32,238,192 


,32,12,193, 262 

199 DATA 208, 247,173,11,192,14 
1,16,192,32,238 

268 DATA 192,32,12,193,173,9,) 
92,141,16,192 
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21.0 DATA 174,6,192,169, 40,14], 
14,192,32,238 

228 DATA 192,32,12,193, 202, 208 
,247,173,13,192 

230 DATA 14],16,192, 32,238,192 
,32,12,193,173 

248 DATA 8,192,14),16,192,169, 
1,141,14,192 

250 DATA J.74,5,192, 32, 253,192, 
32,12,193, 202 

260 DATA 208, 247,173,12,192,14 
1,16,192, 32,253 

270 DATA 192,32,12,193,173,9,] 
92,14),16,192 

280 DATA 169,40,14),14,192,174 
, 6,192, 32,253 

298 DATA 1.92, 32,12,193, 202,208 
,247,96,24,165 

308 DATA 251,109,14,192, 133,25 
1,165, 252,185,2 

318 DATA 133, 252,96,56, 165, 25] 
,237,14,192,133 

320 DATA 25],165, 252, 233,0,133 
,252,96,160,0 

| 330 DATA 173,16,192,145, 251,24 

| ,165,252,109,15 

346 DATA 192,133, 252,173,7,192 

,145,251,56, 165 

DATA 252, 237,)5,192,133,25 

2,96 


Program 2: Text Framer—64 
Version — 


1@ REM COPYRIGHT 1987 COMPUTE] 
PUBLICATIONS, INC. = ALL R 
IGHTS RESERVED 

PRINT" [CLR] (3 RIGHT}COPYRIG 

HT 1987 COMPUTE! PUB., INC. 


350 


20 


38 PRINTTAB(9)"ALL RIGHTS RESE 

RVED":PRINT" {DOWN}...LOADIN 

G ML" 

FORI=3072T03368: READA: POKEI 

»ArX=X+A:NEXT 

IFX<>26833THENPRINT"ERROR I 

N DATA STATEMENTS.":STOP 

DATA 76,17,12,98,98,18,198,1,6 

4,66 

DATA 

bea Ih 

DATA 201,38,176, 28,173,4,12 

,201,23,176 

DATA 21,173,5,12,249,16,173 

,6,12,240 

| J}80 DATA 11, 24,173,3,12,199,5, 

| 12,201,39 

118 DATA 144,3, 76,133,134, 24,1 
73,4,12,199 

120 DATA 6,12,281,24,176,242,1 
73,59,18,133 

130 DATA 252,56, 169, 2)6, 229,25 
2,141,15,12,174 

148 DATA 3,12,134,251,174,4,12 
, 240,111,169 

150 DATA 40,141,14,12, 32, 238, ) 

2,202,208,259 

DATA 173,190,12,141,16,12,3 

2,12,13,174 

178 DATA 5,12,169,1,141,14,12, 
173,8,12 

180 DATA 14),16,12, 32, 238,12,3 
2,12,13,202 

190 DATA 208, 247,173,11,12,14) 
jLOple;a2pess 

208 DATA 12, 32,12,13,173,9,12, 

| 141,)6,12 

218 DATA 174,6,12,169,48,141,1 
4,12,32,238 

228 DATA 12,32,12,13, 262, 208,2 
47,173,13,12 

238 DATA 141,16,12, 32, 238,12,3 
736) by Ja bac 1 Bip be} 
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46 
50 
60 
70 85, 73, 74,75,8,9,8,173, 
BO 


90 


166 


| 8898:84 


| 88E8:C9 


| BEPB:F9 


| 8938:FA 





248 DATA 8,12,141,16,12,169,1, 
141,14,12 

254 DATA 174,5,12,32, 253,12, 32 
, 12,13, 202 

260 DATA 208, 247,173,12,12,14) 
p16 2,392,253 

270 DATA 12,32,12,13,173,9, 12, 
141,16,12 

288 DATA 169,40,141,14, 12,174, 
6,)2,32,253 

298 DATA 12,32,12,13, 202, 208, 2 
47,96, 24,165 

300 DATA 251,109,14,12,133, 25) 
,165,252,1085,0 


| 318 DATA 1.33, 252,96, 56,165, 25) 


,237,14,)2,282 

320 DATA 251,165, 252, 233, 0,133 
,252,96,168,2 

330 DATA 173,16,12,145, 251, 24, 
165, 252,109,15 

349 DATA 12,133,252,173,7,12,1 
45,25),56,165 

350 DATA 252,237,15,12,133, 252 
, 96 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How To Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





| Off-Screen Trace 


See instructions in article on page 
50 before typing in. 


88608:78 
8808: 20 
B8)0:A0 
8818:co 
86820:84 
BB28:8B 
8830:8D 
BB38:A9 
B8840:F5 
BB848:AD 
8850:03 
BH58:F6 
8868:AD 
BAGH :8D 
8B70:A9 
8878:09 
88808:89 
8888:93 


6E 
8d 
BA 
8D 
AY 
Fl. 
@1 

8B 
03 
F4 
AD 
83 
FS 

88 
03 
8D 
20 
20 
29 
Bl 
AD 
BA 
89 
AD 


3F 
CB 
a3 
4B 
E3 
LA 
Ba 
76 
C5 
SF 
D2 
47 
DO 
3F 
DA 
AS 
37 
78 
ED 
FD 
AE 
AE 
28 
19 
Cp 
89 
7c 
64 
10 
18 
41 
47 
EC 
95 
5) 
a3 


Ag 
96 
4) 4) 
8B 
8D 
AQ 
Fa 


8898:86 
BEAG:8A 
8B8A8:63 
BBB@:AD 
BHBB:8A 
B6CO8:15 
88C8:8A 
88D8:6C 
88D8:48 
S8E8:C9 


BSBFO:A9 


8900:81 
B908:FO 
H91)0:A9 
B8918:BA 
B8920:20 
8928:D8 
8930:4cC 


04 
22 
96 
A8 
DD 


8940:C9 
6946:8A 


| 89P8:A9 


| BAID:Bl 
| 8A98;:60 





BF’ | 


8950:F5 
8958:8D 
8966:D0 
8968:BA 
89708:85 
8978:85 
8980;:8A 
8988:8A 
8990;88 
8998:85 
89A9:AD 
B9AB8:DD 
89BG:05 
B9BS:AD 
89C0:De 
89C8:03 
89D8:03 
B9D8:00 
B9EO:CBE 
89E8:@3 
B89F0:15 


BAGO:A9 
BAGB8:2E 
BA10:903 
8A18:88 
BA20:89 
BA28: 28 
S8A30:FO 
BA38: 28 
BA40:A9 
BA4B8:F4 
BA50:A9 
B8A58:85 
B8A60:86 
BSA68:A9 
BA76:FC 
BA/S8:AE 
8A88:085 
BASB:CA 


BAAG:99 
SAAB: BO 
BABA: 68 
BABS:8A 
BACO:Cco 
BACS8:3A 
BADO:28 
BADB:AG 
SAE@:A9 
BAE&:C5 
BAFO:F9 
BAFS: 00 


64+ 


See instructions in article 
52 before typing in. 


O801:1F 
0809: 36 
8811:4) 
0819:43 
0821:48 
W829:AA 
0831:35 
0839:78 
0841:85 
@849:85 
085)1:28 
0859:5B 
0861:8E 
6869:8E 
O871:8E 
O879:E8 
0881:18 
0889:E8 
0891:EB 
0899:38E 
O8A1L:A3 
OBA9:8E 


20 
42 
20 
08 
29 
32 
15) 
3 
58 
20 
B5 
4) 4) 
EC 
EJ 
EA 
A 
EB 
FB 
E8 
BE 
E8 
BE 


93 
A2 
E4 
41 
B] 
59 
C3 
LE 
16 
A? 
OA 
61 
a7 
7 
86 
D6 
A9 
sie | 
83 
42 
78 
26 








| 98B1:F?7 


68B9:A2 
@8C1:8E 
@8C9:FD 
| 68D1:8E 
| 68D9:8E 
O88E1:8E 
| @8E9:6E 
| OBF1:EB 
| O@S8P9:A2 
| 8981:C7 
8989:69 
8911:c9 
6919:09 
0921:8E 
8929:87 
0931:EB 
O939:EC 
6941;:8E 
0949:E8 
8951:A2 
| €959:8E 
8961:E7 
6969:2C 
9971:Cl 
6979:A9 
6981:A2 
0989:A5 
8991:69 
| 9999;:99 
89A1:Bl 
G69A9:A9 
8981:69 
6989:A5 
89C1l:Fc 
89C9:F7 
89D1:c8 
89D9:68 


H89E1:B8C 


O9E9:A5 
O9F1:A9 
B9F9:86 
OAG1:8D 
BAG9: B82 
BALL:A4 
BA19: De 
GA21:16 
BA29: DA 
BA31:13 
BA39:FO 
BA41;:C8 


GBA49:4C | 


@A51:85 
BA59:02 
G8A61:03 
BA69:FC 
BAT1: 
8A79:28 
| @A81:C9 
@A89:A9 
8A91:086 
9A99:7F 


HAAL:9F 


OAAS:3/ 
BAB1L:04 
BAB9:2C 


BAC1:B5 | 


BACS: 0B 
| @AD1L:FF 
BADS: 28 
BAE1:A6 
OHAES:E6 
BOAFP1:1E 
OAF9:D5 
@BO1:c9 
8BO9:4C 
| 8B11:be 
G6B19:FF 
O@B21:9D 
5B29:E6 
@B31:8B 
O0B39:13 
0B41:D4 
6B49:D4 
0B51:0E 


4c 


OF 


0B59:83 
OBG1:EB 
8B69: 90 
GBB71:A8 
@B79:CB 
0B81:99 
0BB9:A2 
6B891:03 
@B99:EC 
ABA1:4C 
OBAS: 21] 
@8BB1:De 
OBB9: 49 
HBC1:9C 
8BC9:1Cc 
@BD1:88 
@BD9:A9 
O8BE1:0D 
OBE9:35 
BBF1:0D 
O8BF9:93 
6C81:35 
8C89:18 
6C11:2A 
8C19:14 
6C21:2B 
@C29:4c 
O8C31:A9 
8C39:c9 


96 
cD 
AA 
BO 
88 
F8 
83 
80 
4). 
8D 
CD 
AD 
36 
86 
38 
BF 
E@ 
99 
36 
9) 
34 
36 
4¢ 
9E 
34 
54 
AS 
AD 
69 


a4 
BY 
AD 
6B 
BL 
G2 
4c 
CB 
=4-, 
53 
06 
4c 
8D 
Ag 
2C 
6C 
85 
9A 
34 
36 
38 
308 
2D 
13 
32 
49 
44 
8D 
FO 


o7 
CB 
62 
85 
A8 
16 
EB 
CB 
44 
AD 
85 
EB 
83 
AE 
H3 
AQ 
4c 
9F 
38 
9D 
13 
32 
3A 
3D 
2 
53 
CE 
DC 
58 


90 
EA 
83 
BY 
B85 
77 
Fr 
79 
33 
49 
cy 
83 
89 
2C 
EA 
4C 
CB 
1D 
37 
39 
1D 
31 
33 
3B 
4 
20 
45 
FD 
7F 


ce 
6A 
89 
CB 
BA 
88 
26 
7c 
=F 
54 
DO 
4B 
13 
A3 
13 
EB 
F6 
05 
38 
2C 
1B 
30 
ZE 
1 
20 
4E 
2) 
Ba 
F9 


Sequential File 
Editor 


Article on page 56. 


RE 19 


Z29=CHRS$ (20) :A=3000: IFPEE 


K (56) <64THENA=100 


RE 20 


DIMAS (A):PRINT"{CLR} "CHR 
$(14)CHRS(8); 


:OPEN1,98,6: 


V=203: IFPEEK(771 )=164THE 
NV=212 


38 


LI$S="—40 Tq" 





Cs 


sc 


RJ 


4G 


58 


60 


76 


80 


99 


PRINT" {8 SPACES}SEQUENTI 
AL FILE EDITOR":PRINTLIS 
wi | 3 DOWN | Tl) 
PRINT"ENTER THE NAME OF 
{SPACE]THE FILE YOU WISH 
TO{2 SPACES]EDIT AND PR 
ESS RETURN{2 DOWN}" 
PRINT" >"; :INPUT#1,FI$:PR 
INT" {DOWN} ":FIS= SLEFT$ (FI 
$,16) 
PRINT" FILENAME IS "CHRS( 
34) FISCHRS (34):PRINT" 
{DOWN}IS THIS CORRECT? ( 
Y/N) YTLEFT]": 
INPUT#1,A$:PRINT: IFLEN(A 
$ )=OTHENPRINT"{UP}":GOTO 
88 
AS=LEFTS(AS,1):IFAS="Y"T 
HENPRINT:GOTO1194 


196 RUN 
118 PRINT"DISK DRIVE # (8-1 


128 


138 


146 


15d 
168 


176 
186 
190 


®) S{LEPT}";:INPUT#1,A$ 
: DR=INT(VAL(AS)) 
IFDR<SORDR>1@THENPRINT: 
PRINTSPC(22)"{UP]} 

l7 SPACES} (UP}":GOTOl1a 
PRINT" (CLR}{2 SPACES] RE 
ADING "CHRS (34) FISCHRS( 
34):PRINTLIS 
F2S=FIS+",S,R":LN=1:PRI 
NT" [2 SPACES}1 : "; 
OPENS, DR, 8,F2$:GET#8,AS 
IFST<>OTHENPRINT"FILE N 
OT FOUND":GOSUB1158:GOS 
UB1149:RUN 

GOTO19@ 

GET#8, A$ 

IFAS <>CHRS (13) THENAS (LN 
J=AS (LN)+A$ 





209 


2168 
220 
230 
2468 


256 
266 


276 


280 


2998 


368 


318 


328 


3398 
346 
356 


360 


376 


380 
398 
400 
419 
420 
436 
440 
450 
460 
479 
480 
499 
500 


518 
528 


536 


546 
5508 


560 


576 


586 


590 


IFST <> @THENGOSUB1150:GO 
TO260 


IFAS=CHRS$ (13) THEN2390 
PRINTAS; :GOTO18@ 
BS="":IFLN<OTHENBS="_" 
PRINT: LN=LN+1:PRINTBS ;L 
N": "ss IFST<>@THEN269 
GOTO18@ 
CLOSES: PRINT" {CLR} "SPC( 
13)"MAIN MENU":PRINTLIS$ 
PRINT"[1] LIST FILE":PR 
INT" {DOWN}[2] EDIT LINE 
":PRINT" {DOWN}[3] INSER 
T LINE" 
PRINT" {DOWN}[4] DELETE 
{SPACE ] LINE": PRINT" 
{DOWN}([5] RE-RUN PROGRA 
mM" 
PRINT" (DOWN]([6] RE-SAVE 
FILE AFTER EDITING":PR 
INT" {DOWNJ[7] PRINT FIL 
E TO PRINTER" 
PRINT" {DOWN}[8] EXIT PR 
OGRAM|2 DOWN}" 
PRINT"ENTER YOUR CHOICE 
AND PRESS RETURN{ DOWN) 


PRINT">";:INPUT#1,AS:A= 
INT(VAL(AS)):IFA<1LORA>8 
THEN260 
ONAGOTO346,5208,690, 700, 
800,830,890, 1000 
PRINT" (CLR}"SPC(13)"LIS 
T FILE":PRINTLIS 
PRINT"PRESS (A) TO ABOR 
T OR (SPACE) TO PAUSE" 
PRINT" [DOWN} ({RVS}W 
(OFFI) 27H. Ok WITH(TRVS] 
O{OFF})UT LINE NUMBERS? 
WLLEFT}"; 
INPUT#1,AS:AS=LEFTS(AS, 
1): IFAS <>"W"ANDAS <> "0"T 
HEN370 
PRINT" {DOWN }":FORR=1TOL 
N: IFAS="0"THEN41@ 
BS="":TFR<¢1@THENBS=" " 
PRINTBS;R": "; 
PRINTAS (R) 
FORT=1TO166:NEXT 
GETCS: IFCS=""THENNEXT:G 
OTO496 
IFCS="A"THENPRINT: PRINT 
"{DOWN) {RVS}* ABORTED * 
"3;GOTO490 
IFCS<>" "THEN430 
PRINT" {RVS}* PAUSED *" 
GETCS: IFCS=""THEN470 
PRINT" {UP}{11 SPACES}": 
PRINT" {UP}"::GOT0430 
PRINT" {DOWN} {2 SPACES}P 
RESS ANY KEY FOR MAIN M 
ENU" 
GETCS: IFCS=""THEN560 
GOTO260 
PRINT" {CLR} "SPC(13)"EDI 
T LINE":PRINTLI$: PRINT" 
{DOWN} WHICH LINE NUMBER 
TO EDIT? “; 
INPUT#1,A$:A=INT (VAL(AS 
)):PRINT 
IFA>OANDA<=LNTHEN 560 
PRINT" {DOWN] BAD LINE NU 
MBER":GOSUB1L156:GOT0520 
PRINT" {DOWN} "AS(A):PRI 
NT" [DOWN] RETYPE LINE OR 
PRESS RETURN[ DOWN}" 
PRINT">"::GOSUB1640: PRI 
NT 
IFTS$=CHRS (13 )ANDP=0THEN 
PRINT" { DOWN } UN-CHANGED" 
:GOSUB1158:GOTO260 
PRINT" | DOWN} CHANGED" :GO 
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99 





680 


610 


6208 


630 
648 


65d 


668 
678 


689 


699 


788 


718 


| 720 


7368 
746 


. 758 
760 
7768 


780 


. 798 
886 


81a 
826 
830 


846 


850 


860 


B78 


880 


890 


906 


9168 


926 


936 


SUB115@:A$(A)=A$:GOTO26 
i) 


PRINT" {CLR}"SPC(13)"INS 
ERT A LINE":PRINTLI$ 
PRINT"{2 DOWN}WHERE SHO 
ULD THE LINE BE INSERTE 
D? | DOWN} " 

PRINT">";: INPUT#],A$:A= 
INT (VAL(A$)): PRINT 

IFA> OAN DA <=LNTHEN650 


PRINT: PRINT"BAD LINE NU 
MBER": GOSUB1156:GOTO609 
PRINT" {DOWN} WHAT WOULD 
{SPACE} YOU LIKE THAT LI 
NE TO BE?[4 SPACES] (PRE 
SS RETURN TO ABORT) 
| DOWN 
PRINT">";:GOSUB104@ 
IFTS=CHRS (13) ANDP=@THEN 
268 
FORR=LNTOASTEP-1 :AS(R+1 
J=AS (R) : NEXT: LN=LN+1 
PRINT: PRINT" | DOWN} DONE" 
:GOSUB115@:AS(A)=A$:GOT 
0260 
PRINT" {CLR} "SPC(13)"DEL 
ETE LINE" :PRINTLIS 
PRINT" {DOWN}WHICH LINE 
[SPACE}WOULD YOU LIKE T 
O DELETE? {DOWN} " 
PRINT">"+:INPUT#1,AS:A= 
INT(VAL(AS)) 
IFA<LORA>LNTHEN 700 
PRINT: PRINT: PRINTAS(A): 
PRINT" |DOWN]JDELETE THIS 
LINE (Y/N)? Y(LEFTJ"; 
INPUT#1,AS:AS=LEFTS(AS, 
1):PRINT 
IFAS="Y"THEN780 
PRINT" |DOWN]JNOT DELETED 
"+GOSUB1158:GOTO269 
FORR=ATOLN:AS(R)=AS(R+1 
) :NEXT: LN=LN-1: PRINT" 
{ DOWN } DELETED" 
GOSUB115@:GOTO260_ 
PRINT: PRINT" {DOWNJARE Y 
OU SURE (Y/N)? Y{LEFT)" 
>: INPUT#1,AS:AS=LEFTS(A 
$,1) 
IFAS="Y"THENRUN 
GOTO260 
PRINT" [CLR} "SPC(12)"RE- 
SAVE FILE":PRINTLI$ 
PRINT" {DOWNJENTER THE F 
ILE NAME":PRINT"('*' FO 
R SAME NAME AS BEFORE) 
{ DOWN } " 
F3S=FIS:PRINT">";: INPUT 
#1,AS$: IFAS <> "*"THENF3$= 
AS 
OPEN1S,DR,15,"S0:"+F3$: 
CLOSEL5:F4S="6:"4+F35S+", 
S,W":OPENS, DR, 8,F4$ 
PRINT" |2 DOWN}":FORR=l1T 
OLN: PRINT"LINE: "R"{LUP) 
“:PRINT#8,AS(R):NEXT 
CLOSES: PRINT: PRINT: PRIN 
T" DONE" :GOSUB1158:GOTO2 
60 
PRINT" {CLR} "SPC(13)"PRI 
NTING FILE":PRINTLIS$ 
PRINT" [DOWNJHOW MANY LI 
NES PER PAGE DOES YOUR 
{SPACE} PAPER" 
PRINT"HAVE? (8 = CONTIN 
UOUS PRINTING) {DOWN} " 
PRINT" >"; :INPUT#1, LP: LL 
=60: IFLP<@ORLP<>INT(LP)T 
HENS9@ 
PRINT: PRINT: PRINT" PRESS 
(SPACE) TO PRINT OR 'A 
' TO ABORT" 
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946 
956 
968 
970 


| 980 


998 


1666 


1616 


1920 
1630 
1640 
10598 
1068 


. 1878 
1680 


1696 


11.60 
1110 


11206 
1138 


1148 


EM 1156 


GETAS: IFAS="A"THEN 268 
IFAS="""THEN97@ 
GOTO946 
OPENS, 4, 7: FORR=1TO5: PRI 
NT#¢9:NEXT:FORR=l1TOLN: PR 
INT#9,AS(R) 
LL=LL+1 : IFLL=LP-l1@THENF 
ORT=1TO10: PRINT #9:NEXT: 
LL=6 
NEXT: PRINT#9:CLOSE9:GOT 
0260 
PRINT: PRINT" { DOWN} ARE 
{SPACE} YOU SURE (Y/N)? 
Y{LEFT}"; 


INPUT#1,AS:AS=LEFTS (AS 
,l):IFAS="Y"THENPRINT" 
{CLR}":END 

GOTO260 

REM RETURN AS AS 
P=0:AS="" 


PRINTCHRS (166 )CHRS(157 
GETTS: IFTS=""OR(TS=CHR 
S$ (24) ANDAS="")THEN]O6@ 
PRINT" "CHRS(157); 
IFTS=ZSANDLEN(AS )>@THE 
NAS=LEFTS (AS, LEN(AS )-1] 
):PRINTTS; :P=P-1:GOTO] 
O50 
IFTS=CHRS (24) THENFORZ= 
LTOLEN(AS):PRINTZS;:NE 
XT: GOTO]046 
IFTS=CHRS (13 )THENPRINT 
TS: RETURN 
IF(ASC(TS)AND127)<32TH 
EN1850 

IFP>253THEN1@5¢ 
PRINTTS$; :AS=A$+TS$: POKE 
V,@:P=P+)1:GOTO1058 
OPENL5, 8,15: INPUT#15,A 
S,BS,C$,D$:CLOSE1L5:RET 
URN 
FORR=1T01008:NEXT:RETU 
RN 


BEFORE TYPING... 


Before typing in programs, please 


refer to 
COMPUTE!’s GAZETTE Programs,” 
| elsewhere in this issue. 


“How to Type In 





One-Touch 


Function Keys 


See instructions in article on page 
55 before typing in. 


co0e:78 
C608: 8D 
COl1B:E9 
CO18: DO 
CO20:8D 


| CO28:C) 
CO38:FG 


CO38:FO 
C648:BD 
C848:04 
CO50:A2 
CO58:E8 


| CO60: 3) 


C68: 77 
CO70:CH 


| C8@78:14 


CO8H:A9 
C@88:AG 
CO9B:E3 
CO98:FF 
COAG:FF 


AQ 
15 
co 
FS 
11 
FO 
42 
16 
12 
DO 
00 
EG 
EA 
O2 
4C 
03 
93 
00 
Ad 
A2 
20 


03 
Ad 
E8 
40 
EA 
Cl 
2c 
E5 
82 
4c 
9D 
86 
1A 


cd 63 
BD Co 
28 18 
. B7 
BB 
ES 
16 
84 
AD 
DB 
Bl 
B7 
G1 
2F 
97 
C7 
4E 
=f 
B? 
21 
49 


OD 
03 
9D 
AS 
Cl 
FB 
2 
co 
Cl 
FS 
BD 
04 
Ad 
E& 
3] 
AQ 
26 
20 
co : 
8B 
E4 


BD 
38 
1) 
C5 
4C 
8D 
5 
03 
9D 
86 
16 
DO 
08 


14 
60 
a4 
c9 
31 
ll 
FG 
Dg 
77 
c6 
cl 
F5 
BD 
85 
78 
BD 
FF 
FF 
BD 
c6 
20 





COAB: 31 
COBS: 98 
COBS:Cl 
CHCH:CD 
COCS8:E4 
C@Dg8:c7 
CODS8:A4 
COES:C3 
COES8: 24 
COFO:12 
COF8: 89 
C106: 2D 
C168:B87 
C116:26 


| C1) 8:56 


20 
DO 
20 
BD 
FF 
co 
co 
FF 
20 
20 
13 
13 
21 
JF 
45 


E4 
EE | 
E4 
Ag 
FO 
AY 
20 
20 
86 
20 
14 
Ol 
2D 
4C 
4c 


FF 
208 
FF 
20 
J6 
@D 


cce 


88 
Bl 
86 
208 
16 
HC 
4PF 
49 


64 RAMdisk 


See instructions in article 
48 before typing in. 


| 8€801:0B8 


8809: 3) 
8811:1D 
0819:4cC 
@821:C3 
8829:55 
8831:A9 
0839:05 
9841:C1 
8849:63 
6851:A0 
0859:FE 


| O861:FF 
| 0869:FB 


6871:8D 
0879:99 
0881:8D 
6889:52 
6891:06 
6899: 20 
68A1:54 
BBA9: 00 
08B1:00 
B6SB9:E8 
88C1:08 
868C9;: 2D 


| @8D1:25 


88D9:1D 
@8E1:86 
G88E9:38 
88F1:Do 
@8F9:99 
6901:38 
8909:02 
6911:85 
8919:08 
6921:D0 
8929:9D 
8931:B4 
9939:99 
O941:7A 
8949:00 
@951:c9 
6959:A6 
8961:18 
8969:CA 
0971:FO 
8979:B0 
O8981:AA 
g989:c8 
8991:C8 
8999:AB 
@9A1:4D 
89A9:53 
O9B1:4E 
89B9:52 
99C1:52 
89C9:4) 
89D1:26 
B9D9:A7 
O9E1:10 
O89E9:Cl 
69F1:00 
O9F9:ca 


88 
a4) 
C2 
10 
4c 
C5 
AI 
B3 
BD 
AQ 
cé 
FF 
FF 
8D 


8G 
a) 
4c 
oer 
O7 
4C 
BD 


08 
O08 
398 
4c 
c4 
| 
a4 
69 
03 
8D 
1E 
78 
79 
CA 
69 
88 
68 
208 
a) 
53 
41 
AG 
O7 
c9 
FO 
De 
90 
Ag 
cs 
Ag 
6B 
B9 
FO 
38 
Li] 
cs 
TA 
PA 
BD 
C6 
FF 
F9 
o4 
OB 
9E 
4c 
OF 
24 
AG 
aa 
Cl 
4c 
45 
4) 
32 
41 


) CE 


45 
20 
90 
cc 
F7 
a8 
14 


9E 
4c 
C2 
5B 
4C 
cg 
83 
8D 
AQ 
89 
AB 
CA 
CA 
A? 
OF 
18 
32 
+e} 
8D 
4B 
54 
a4 
c9 
20 
56 
04 
O4 
3) ) 
E& 
FO 
Ad 
FB 
O84 
E9 


30 


co 


32 
FD 
4C 
C2 
3E 
20 
AQ 
a6 
Do 
03 
AQ 
AQ 
AQ 
FF 
B9 
F7 
34 
49 
52 
20 
45 
84 
FF 
FO 
24 
AQ 
c9 
B4 
BD 
F5 
71 
1. 
c9 
55 
FO 
FB 
OB 
9E 
62 
AQ 
c8 
Cl 
6B 
B9 
DO 
AG 
F5 
38 
CA 
FA 
a5 
A6 
41 
43 
41 
44 
45 
49 
Cl 
c9 
AB 
48 
ED 
17 


FF 
8D 


| Cl 


FF 
FF 
FF 
08 
3) 
04 
2D 
ns 
20 
a4 
53 
OD 


on 


60 


| B2 


BE 





GA81:C8 
GAG9I:CH 
68A11:26 
BA19: 28 
6A21:A8 
OBA29: 22 
G6A31:2¢0 
8A39:4C 
BA41:C7 
8A49:86 
8A51:6B 
8A59:4C 
8A61:4C 
BA69: 2D 
OA71:2D 
@A79:A5 
@A81:AD 
8A89:6B 
8A91:6C 
BA99:CA 
BAAL:E9 
@AA9:85 
6AB1:6B 
GAB9:0A 
BACL:FE 
8AC9:8D 
BADL:AD 
BAD9O:CA 
OAE1:FF 
BAE9: DE 
BAF1:E1 
BAF9: 1). 
@B@1:A9 
O8BO9:E) 
| 66811:C6 
| @B).9:A0 
0821:78 
0829:8D 
OB31:7A 
0839:Be 
8B41:C3 
@B849:9D 
OB51:CA 
0B59:C7 
0B61:03 
8869;:0). 
0B71:85 
8B79:10 
6881:85 
| @BB9:38 
0B91:6E 
@B99;:2E 
HBA]: 68 
BBA9:FD 
OBB1:E9 
@BB9:18 
OBC1:FC 
OBC9:A5 
OBD1:6D 
8BD9:6D 
O8BE1: 86 
OBE9: 68 
OBF1:6E 
OBF9:FD 
0C81:Cc6 
8CO89:08D 
OCLI:FF 


8C19; 208 
8C21:78 
8C29:AD 
8C31:85 
8C39:85 
0C41:c7 
8C49:6). 
8C51:AB 
H8C59; 28 
8C61:A5 
@C69:02 
6C71:Do 
8C79:63 
8C81:081 
8C89:85 
8C91:85 
0C99:85 
OCAL:A5 
HCA9:CO 


AS 


20 


20 


A5 


Da 


26 
60 
ce 
C7 
Bl 
60 
83 
81 
FC 
AS 
68 


63 


20 
AS 
6D 
6E 
85 
85 
79 
38 
20 
B5 
96 
ES 
2B 
C2 
79 
8D 
EE 
EE 
18] 4) 
BA 
8D 
6E 


c4 


8D 
FB 
AD 
CA 
5) 
24 
6C 
Al. 
90 


AS 


FB 
AB 
Po 
20 


7 ES 
* * 


A5 
C9 
AS 
FE 
FR 
85 
7a 
8) 
E6 
cg 
be 
85 
A5 
82 
AQ 
b2 
12 


FF 
0) 
FF 
PF 
EC 
85 
1E 
OD 
Ao 
BO 
CA 
DO 
AS 
FB 
68 
6D 
FE 
E9 
io] 





HCB1:A5 
8CB9:38 
6cC1:28 


8CC9:48 
| @CD1:68 


6CD9:85 
O8CE1:D2 
BCE9: 85 
BCF1:Cc7 
OBCF9; Ol 
8D@1:AB 
8D89:C4 
6D11:85 
6D19:85 
8D21:79 
6D29:38 
0D31:268 
8D39:CD 
O@D41:E5 
6D49:42 
6D51:45 
8D59:48 
8D61:81 
6D69:9E 
OD71:A9 
0D79:CB8 
8D81:FB 
8D89:68 
6D91:66 
8D99:FE 


ODA1L:CO 


8DA9I:G7 
ODB1:E9 
6DB9:85 
O8bC1:c5 
6pc9:69 


OBDD1:FC | 


OBDDI:A5 
O6DE1:18 
@DE9:EE 
ODF1:01 
BDF9:91 
BEO1:Da 
G6EG9: DS 
BE11:A9 
BE19:E6 
G8E21:C9 
OE29:De 
8E31:85 
§8E39:B85 
@E41:AD 
BE49:AD 
BE51:78 
BE59:cob 


@E61:6C 
BE69:E9 


BE71 t B45, 
8E79:6C 
GE81:01 
G6E89: 6E 
G8E 91:35 
6E99:6D 
BEA1: 62 


BEA: 7A | 


@EB1:CA 
B8EB9:12 
BHECL:CA 


BECI: 81 
BED1L:Bl 
8ED9:A5 
BEE1:08 
SEE9:A5 
BEF1:17 
BOEF9:EO 
BF@1:85 
OFO9I:AB 
OF11:6Cc 
8F19:85 
O8F21:CD 
OF 29: 7B 
BF31:bDC 
@F39:FB 
OF 41:CDp 
OBF49:A5 
OF51:FB 
OF59: 22 





@F61:18 
SF69: 01 
G@F71:8A 
OF79:85 
OF81:60 
OFS89:06 
OF91:A8 
OF99; 9] 
OFAL:2¢C 
OFA9:AG 
OFB1:C7 
OFB9:4C 
@FC1:47 
OBFC9: 41 
@FD1L:4c 


OBFD9: 28 


OFE1:41 
OFE9: 46 
OFF1:00 
BFF9: 85 
1881:A5 
1989:Cc9 
1811:A9 
1819:85 
1821:A9 
16829:6] 
1831:64 
1039:A5 
1841:18 
1849:00 
1851:78 
1859:B1 
1861:6C 
1869:CA 
LO71:E9 
1679:85 
1081:85 
18089:E6 
1891:bDe 
1899:C6 
18A1:D8 
1BA9:CA 
16B1:08 


18B9:6B 


180C1:69 
1809: 6A 
10D1:682 
18D9:cBe 
1BE1:E0 
18E9:6C 
1OF1:CE 
1OF9:CA 
1181:62 
1189:62 
1111:63 
1119:A6 


1121:208 | 


1129:FO 
1131 :FF 
1139: 41 
1141:41 
1149:53 
1151: 2F 
1159:4¢c 
1161:A0 
1169:62 
1171:A8 
1179:62 
1181:A9 
1189:59 
1191:0868 
1199:81 
11A1:2C 
LIAS: 02 
11B1:82 
11B9:7¢ 
llC1l:E4 
11¢09:79 
L1D1: 91 
lID9:A5 
L1E1:92 
LIES: 8a 
L1LF1:78 
LIF9:CA 


1201:35 | 


1269: 85 


A) 
91 
DO 


33 
O) 
E9 
DG 
B6 
Lif 
B). 
A2 
A2 
D4 
AG 
ea 
20 
4P 
4c 
D3 
43 
FF 
FF 
co 
AS 
90 
AY 
85 
38 
62 
85 
AS 
66 
65 
6B 
Bd 
AD 
6B 
E9 
AY 
91 
E6 
De 
85 
8D 
CA 
83 
4) 3) 
B2 


. B3 


83 
82 
82 
6c 
AD 
69 
6A 
B2 
28 
AO 
c9 
4c 
20 
4B 
55 
28 
D2 
B5 
i) 4) 
91 


) Ol 


91 
BF 
c9 
62 
88 
61 
62 
61 
CA 
cs 
TA 
91 
G2 
61 
61 
CD 
48 
B82 
B2 
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1211:62 E6 02 D@ 62 E6 B3 AS C4 
1219:6] C9 68 DO DB AS 62 C9 19 
1221:CO D@ CA AO OB 85 61 AD 5B 
1229:E9 85 62 DO CB AD 7A CA F4 
1231:85 61 AD 7B CA 85 62 78 87 
1239:A5 61 48 AQ 35 85 G1 Bl 87 
1241:61 91 @2 68 85 @1 58 E6 99 
1249:6) D@ 02 E6 62 £6 @2 DO 84 
1251:02 E6 03 A5 61 65 62 DO OF 
1259:DE A5 62 85 2D A5 G3 85 7A 
1261:2E AO 95 B9 72 CA 99 64 F6 
1269:03 88 10 F7 28 68 AG 4C CE 
1271:86 E3 7C AS 1A A7 E4 A7 9C 
1279:08 88 DC FF 88 8@ DC FF 15 
1281:00 06 FF FF 00 @O FF FF AS 
1289:09 06 FF FF 00 68 FF FF AD 
1291:06 66 32 34 4p 20 52 4) FF 
1299:4D 26 44 49 53 4B 68 OO 5). 
12A1:08 86 88 84 88 BB BB BG CD 


9989:4C 4F 57 2) 68 OD 53 
0991:56 45,20 45 52 52 4F 
09999:2) 21 866 28 20 20 53 
O@9A1:41 52 54 28 41 44 44 
O9A9:3A 88 BD OD 4E 45 57 
69B81:46 49 4c 45 2D 4E 4). 
09B9:45 3A 98 OD 52 45 4D 
09C1:52 4B 53 3A 88 8D 5C 
B89C9:A8 2D A2 AS 86 BE 84 
B9IDL:AG 8G 98 91 BE AG 67 
B9D9I:FF 86 14 84 15 AG 68 
B9E1:08 BE 76 O89 &C 77 O9 
O9E9:E9 OB AS G1 8D 4F 68 
O89F1:;008 8D 56 88 ADI G5 AB 
B9FI:A2 O86 20 BA FF AQ OO 
BAG1:08 88 BA BB JE 32 30 
BAG9:38 86 26 68 14 68 BF 

BAl1:20 20 20 20 20 20 26 
BA19:20 20 20 20 20 20 28 
BA2Z1:20 26 20 20 BB BO OO 
BA29:A9 O68 85 FB 69 66 85 
BA31:A9 98 85 FC 69 @@ 85 
8A39:18 AY 86 65 FB 85 27 
QA41:08 65 FC 85 28 A2 FF 
8A49:90 8C 81 BB BC B2 BB 
BA51:94 Bl 25 91 27 C6 25 
BA59:25 D@ @2 C6 26 C&G 27 
@A61:27 DB O02 C6 28 Cb Fi 
OA69:FB DO E6 C6 FC E4 FC 
BA71:E@ AS 28 C9 AB BA BA 
BA79:34 85 38 A5 27 85 33 
BAB1:37 4c BO BB BB BB Ui 


128 File Viewer 


See instructions in article on 
46 before typing in, 


14C@:08 85 FC AO G2 98 20 5° 
14C8:FF BO 84 AB CB 10 F6 
14D8:FD 85 85 26 53 17 AS 
14D8:F@ BA AQ 17 8D 27 B3 
14E0:BO 8D 26 @3 20 DB 17 
14E8:FB CO 53 FO OF CO 50 
14F@:21 CO 4D DO B3 4c AB 
14F8:C9 G1 FO 16 20 D2 FF 
1560:20 D2 FF 20 CF FF 24 
1508:08 20 D2 FF 68 20 6E 
1516:D9 Fl A® 20 AO GA 85 
1518:A9 51 85 FB Bl FA 99 
1526:13 88 16 F8 AQ 65 8D 
1528:13 C8 B9 CF 17 99 2) 
1530:C8 CO G6 98 F5 AQ @D 
1538:D2 FF AO 03 20 CF FF 
1540:FA @8 88 18 F7 24 98 
1548:68 28 GE 16 C8 BO FA 
1558:99 64 @8 CO 1 90 F5 
1558:98 38 20 75 8C 20 44 
1560:28 E2 55 A9 28 26 D2 
1568:20 CF FF PO C8 C9 CE 
1576:25 C9 FE FO 24 30 15 
1578:D2 FF C9 22 DB EA 20 
1580:FF FO B2 20 D2 FF C9 
1588:F0 DE DO F2 AA AQ 44 
1596:17 28 08 13 DO D2 AG 
1598:2C AG 09 20 CF FF 09 
15A0:18 E9 Ol AA AQ 46 DO 
| 15A8:48 AO 49 BO OF BE 99 
| 15B@:13 88 18 F7 AQ FB 8D 
15B8:13 A9 FA 8D 45 13 AQ 
15C@:8D 34 13 A9 3E &D 33 
15C8:68 85 FA 85 66 86 FB 
15D6:67 AY OD 20 D2 FF 20 
| 15D8:B8 AY 2D 26 D2 FF 20 
15E@:FF 24 98 O98 48 28 AS 
15E8:68 AG OO 84 67 84 68 
15F6:06 O08 20 59 BG 48 AE 
15F8:9A 86 FC C8 CA 38 OC 
1600:CF FF 99 66 68 28 AS 
1688:4C FB 15 AQ 12 26 60 
1616:68 A2 63 20 Al B6 A2 
161.8:86 66 28 66 13 AS 20 
1620:60 16 AQ 3B 26 D2 FF 
1628:00 E6 FC B9 G6 80 48 
1630:7F C9 26 68 BO G2 Ad 
1638:20 D2 FF C8 C4 FC 90 
1640:68 20 GE 16 AG FB AS 
1648:18 65 FC 90 Gl ES 4c 
1658:15 AY OG AD 4 99 FA 
1658:88 1@ FA 85 85 85 7A 
1660:38 E5 EC AB AQ 208 20 
1668:FF 88 DO FA 18 66 48 
1670:70 12 20 El FF FO @1 
1678:A5 FE FO 05 A9 OD 20 
1680:FF 4C 24 14 4c 27 14 
1688:86 63 C9 22 FO 62 DB 
1690:A9 30 8D @8 1) AQ 3A 
1698:01 11 E6 3D Bl 3D FO 
16A0:C9 22 FO OF C9 2C FO 
16A8:99 62 1] C8 CBO 1) DA 
| 16B@:4C GF 14 68 48 CB aa 
16B8:083 4C JE 14 98 48 AQ 
16C0:99 @2 11 C8 AS FB 99 
16C8:1). C8 84 FA 18 68 65 
16D@:85 3D 68 60 26 37 17 
16D8:44 FO 06 C9 55 FO lc | 
16E@:@A 20 46 17 98 OB 20 
16E8:17 BO 18 4c 12 14 4c 
16F0:14 8D 68 1) C9 32 BO 
16F8:20 37 17 C9 55 DO EC 
1706:46 17 BO E7 F@ E5 29 
1708:85 FC 20 80 83 FO OA 
| 1718:DA 29 OF 20 27 17 4c 
1718:17 A5 FC C9 68 BB @3 
1726:15 14 C9 1F BO FO 6O ¢ 
1.728:A5 FC BA BA 65 FC OA 
1730:FC 68 65 FC 85 FC 60 
1738:86 63 FO 14 C9 2c FO 
1740:4C 12 14 4C 86 83 20 
1748:03 C9 30 FO F9 4c 86 
| 1758:68 68 60 AY OB 8D Be 
1758:AA 20 68 FF A5 FA AG 
1768:20 BD FF A5 65 AG FC 
1768:FD 20 BA FF 20 GF F5 


| BEFORE TYPING... 
| Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





No-SYS Loader 


See instructions in article on page 
58 before typing in. 


@801:08 O68 BA OB SE 32 30 36 2E 
§8899:3) 88 86 BB 20 E7 FF AX FB 
86811:008 A2 36 AG O03 20 BD FF AE 
O819:;A0 @8 20 LE 89 AQ OB B85 B3 
@821:BA AI CO 85 9D AS OB 85 82 
0829:93 85 99 AS BA A4 B7 DO 79 
@83):05 A2 @8 4c 37 A4 20 B3 72 
0839:F5 A9 60 85 BO 20 D5 F3 @1 
0841:A5 BA 20 @9 ED AS B9 20 @1 
0849:C7 ED 20 13 EE 8D 3B @A lc 
OB851:AA AS 98 4A 4A 98 85 A2 1B 
| 0859:04 4C 37 A4 A@ 63 20 2F Bl 
@86l:F]1 28 Cl F5 AG 55 20 3B DF 
8869:09 20 13 EE 8D 41 OA SE 6B 
@871:83 @A 8D 84 BA 26 CD BD EY 
@879:AD 41 6A C9 689 BO OB 20 CF 
@8891:28 F5 A® 33 280 3B 89 4C B6 
0889:74 A4 38 AY 85 85 AE EY 28 
@891:00 8D 2E BA AQ BA 85 AF 9B 
@899:E9 62 8D 36 OA 20 FOB F4 DB 
@BA1:AG@ 12 28 38 B89 20 608 AS GD 
@8A9:86 7A 84 7B 20 73 88 BB 63 
| @8B1:0D 28 6B A9 A5 14 SD 83 74 
@8B89:0A A5 15 8D 84 BA AD 75 BG 
@8C1:28 1E 69 AS 26 DB B23 BY 29 
G@8C9:36 63 99 11 BA 88 10 F7 84 
@S8D1:AG 64 28 1E 09 38 AS AE 54 
@8D9:E9 85 BD 2A OA AS AF ES C4 
O8E1:0A 8D 32 BA AQ 81 85 AC 4A 
OB8E9:A9 BA B85 AD AD 6] B85 BO 74 
@BF1:A4 B7 28 D5 F3 28 OF F6é DI 
O@8F9:A5 BA 20 @C ED A5 B9 20 E9 
@901:B9 ED A®@ @@ AD B1 20 DD EE 
@999:ED AY 88 20 DD ED 20 24 BA 
@911:F6 A5 99 FO 85 AB 47 20 82 
0919:3B 89 4c 74 A4 20 3B 09 Bl 
0921:A0 66 20 CF FF C9 22 FO EG 
0929:F9 C9 OD FO BA 99 36 B3 8B). 
@931:C8 CO 15 98 ED AG 14 84 22 
8939:87 60 B9 47 69 FO B6 20 23 
0941:D2 FF C8 DO FS 68 53 4F BA 
0949:55 52 43 45 20 46 49 4c 52 
6951:45 2D 4E 41 4D 45 3A O00 23 
6959:0D OD 53 59 53 2D 4) 44 4B 
8961:44 52 28 44 45 43 29 28 1D 
8969:43 52 3D 53 54 41 52 54 2F 
@971:28 4F 46 28 58 47 4D 3A A6 
8979:08 OD 46 49 4c 45 20 41 25 
0981:44 44 52 20 54 4F 4F 20 Bl 


1350:208 97 13 20 FA 51 78 
1358:6F 8D 14 83 AY 13 8D 
1360:03 58 A9 56 8D 68 BA 
1368:13 8D 61 BA 4C 83 40 
| 1370:06 88 38 1B BY O86 BB 
1378:C9 13 FO F5 20 97 13 
13860:A9 88 9D OB) BO) AD 13 
1388:07 01 AQ 91 9D G6 O1 
1399:65 FA A2 18 4C 29 14 
1398:06 AY 88 BD OB) 83 85 
13A0:85 36 AS @08 8D 68 83 
13A8:FA 84 2F AQ EF 8D 27 
13B9:A9 79 8D 26 83 88 AQ FE 
13B8:8D BS @2 A2 @1 BY CO 1 
13C0:91 FA 20 77 FF 88 10 
13C8:68 8D @3 FF 4C CF 13 
13D8:51 16 E@ BB DO 53 Ae 
13D8:A2 04 A5 3E 85 FB A5 
13E0:38 E9 @4 85 FA BO G2 
13E8:FB C8 CA 3@ 09 BY 36 
13F0:Dl1 FA FO FS DO IC 24 
)3F8:308 21 A@ 08 C6 FA 30 
1408:B) FA C9 20 FO F4 C9 
1408:D@8 68 FO 2E A2 BE 2C 
1410:17 2C A2 BB 2C A2 B9 
l416:A2 04 2C A2 22 2C A2 
1420:2C A2 065 2C A2 LE 2C 
1426:80 86 Fc 20 A317 28 
1430:13 A6 FC 4C 3F 4D 56 
| 1438:45 57 208 51 16 28 86 
1448:C9 23 D@ 32 28 46 17 
1448:606 C9 2C FO BE DO C3 
1450:0F 20 27 17 20 80 63 
1458:EE F@ B7 E6 3D AS FC 
1460:AB 30 AQ 20 59 FPF 90 
1468:A2 63 DO C7 85 FE EO 
1470:989 A3 A2 86 86 FC AG 
1478:E0 BA 98 B4 A2 Bl DO 
1488:28 CC FF 20 87 16 C9 
1488:F@ 99 A2 3F 86 FB DB 
1498:4D 58 53 C8 A2 G2 Bl 
1498:DD 98 14 FO 86 CA 16 
14A8:4C 12 14 E6 3D EG 3D 
1448:85 FB Bl 3D 20 B4 16 
14B0:98 63 FO 87 C9 22 DB 
14B8:20 D4 16 A5 FC DO O4 
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L778:87 
1778:A6 05 206 
1780:48 
1788:CF 
1798:7D 
1.798:4E 47 
17A8:4C 2) 14 
17A8: 20 
17B8:206 
17B8: 20 
17C0: EF 
17C8:FF 20 
17D@: 7F 
17D8:84 43 68 
17E6:43 60 88 B68 BO 


28 BC 
CF FF CB 
16 28 D3 


E6 B7 208 C@ 
C6 FF 20 
AQ 82 24 98 
FF AA 68 29 17 28 1D 
FF @D 56 49 45 49 DB 
OD 88 68 4C 18 14 DI 
28 cc AS 65 78 
C3 FF AS FE 4C C3 FF E2 
D4 17 28 CC | FE BB 
C9 FF 28 DB 17 28 79 608 
28 CC FF A6 28 C6 DB 
DB 17 4C 79 EF 29 3D 
D2 FF 85 41 86 42 AC 
A5 4). A4 45 
88 86 8B CB 


4c 


Miami Ice 
Article on page 17, 


Program 1: Miami Ice 
For Commodore 128 
EF 19 OPEN2,8,2,"HI-SCORE, S,W" 


5D 


JJ 


DB 
BE 


20 
38 


40 


iB) 4) 


68 


70 


Bd 
90 
188 


1198 
120 


138 


1498 
158 
1608 
178 
188 


1968 


260 


216 
220 


236 


:CLOSE2:0PENL5, 8,15: INPU 
T#15,AS,BS:IFB$<>"FILE E 
XISTS" THENCLOSE15:GOSUB7 
58 

COLORG, 16:COLOR4, 11 
PRINT" {CLR} {RED} {7 Down} 
{15 RIGHT} {RVS}MIAMI ICE 


PRINT" (BLU } { DOWN] 

{11 SPACES]}JOYSTICK IN P 
ORT 2" 
PRINT" {BLK} {DOWN} {BLK} 
{11 SPACES)(LEFT] 

{2 SPACES}TURN LEFT" :PRI 
NT"{11 SPACES}[RIGHT] TU 
RN RIGHT" 

PRINT"{11 SPACES][FIRE] 
{2 SPACES] ACCELERATE":PR 
INT" { YEL} [DOWN } 

{13 SPACES}READING DATA. 


GOSUB1880: PRINT" {UP} 
{BLU}{1@8 SPACES]}PRESS BU 
TTON TO PLAY" 

IFJOY (2) <>128THENSS 
HY=3:SC=0:SN=1 

FAST: ONSNGOSUB769, 1829, 
1280, 1558:SLOW: PRINT" 
{HOME} "TAB(32);"{BLKJLI 
VES";HY:COLOR®G, 16: TM=40 
O:T=0:XE=0 

GOSUB5498;: 
POKE2041,62:MOVSPR2, X,Y 
:;SPRITE2,1,2,9,8,0,1:P0 
KE2040,57:XE=BUMP (2) 
MOVSPR1, 30#9:SPRITE1,1, 
9,0,8,8,1:SPRCOLORI1,2:M 
OVSPR1,40,65:1I1=4:AN=1 80 
:HT=135:TH=0 : XKE=BUMP(2) 
+BUMP (1 ) 

PRINT" {HOME} {RVS}";TM;" 
{LEFT} {OFF}" 
IFJOY (2 )=9THENL52 
IFJOY (2 )=3THEN28¢ 
IFJOY(2)=7THEN3192 

IFJOY (2 )=128THENMOVSPRI1 
, AN#1:TH=1:SOUND1, 5000, 
24, 2,1009, 3,3 

POKE 2048, 53+I: IFBUMP(1 ) 
=3THEN490: ELSE IFBUMP (2) 
AND] THEN42@ 

IFTH> 1 THENONABS ('T-28 )GO 
TO419d 

T=T+] 

IFHT>1 8@0THENIFHT-189>AN 
THEN 360 


IFHT>180THENIFHT-180<AN | 


THEN3 76 





240 
259 
2608 
261 
262 


276 
288 


298 


> 388 


318 


320 


) 330 


340 


356 
368 


378 


388 


3908 


400 
410 


420 
430 


440 


450 


460 


470 


480 
499 


492 
588 


518 


520 


938 
540 


558 


IFHT <1 8OTHENIFHT+1 80 <AN 
THEN389 

IFHT <1 88THENIFHT+189>AN 
THEN399 

T=TM-1 

IF TM<OTHENTM=9 
PRINT" {HOME} {RVS}"; TM; " 
{LEFT} {OFF}" 
IFJOY (2) <>3THEN390 
AN=AN+45: IFAN>368THENAN 
=45 
I=I-];IFI=@THENI=8:GOTO 
1998 

IFJOY(2)<>7THEN349 
AN=AN-45: IFAN<@THENAN=3 
15 

IFAN=3 60THENAN=0 

I=I+l1: IFI=9THENI=1:GOTO 
190 
IFJOY(2)=l128THENSOUNDI, 
5000,24,2,1698,3,3:TH=T 
H+l1:T=0: IFTH>15THENTH=1 
5:GOTO19¢ 

GOTO198 
HT=HT+((AN+(366-HT))/108 
) :MOVSPR1, HT#TH: IFHT<36 


BTHEN268:ELSE:HT=0:GOTO | 


390 

HT=HT-((HT-AN) /19):MOVS 
PR1, HT#TH: GOTO262 
HT=HT-((HT+(3608-AN)) /19 
) sMOVSPR1, HT#TH: IFHT>9T 
HEN260:ELSE: HT=360:GOTO 
376 

HT =HT+((AN-HT) /18):MOVS 
PR1,HT#TH: GOTO260 
GOTO260 

TH=TH=1 :T=0:IFTH<1THENT 
H=1:GOTO220:ELSE2290 
POKE 2040, 63:FORDELAY=l1T 
O150:NEXT:SPRITE 1,9 
SOUND1, 2000, 100,98, 19060, 
1,3,109a 

T=0 :HY=HY~1 : PRINT" 


{HOME}"TAB(32)"LIVES";H | 


Y: IFHY=@THEN469 
XE=BUMP (2) :SLEEP2: POKE2 
048,57:MOVSPR1, 33,55:XE 
=BUMP(2):GOTO13@ 
SLEEP2:PRINT"{9 DOWN} 
{15 RIGHT) {RVS} {BLK}GAM 
E OVER{OFF]}" 
OPEN2,8,2,"HI-SCORE,S,R 
":;INPUT#2,A$, B$:CLOSE2: 
IFSC>VAL(AS$ )THENFORI=1T 
O8:SPRITEI,0:NEXT:GOTOS5 
60 
IFJOY(2)<>128THEN486:EL 
SE: XE=BUMP (2):GoTO99 
POKE53286, 6:MOVSPRI, 49# 
@:PLAY"QGRGRG": IF TM=9TH 
EN520 

SD=INT (2000/TM) 

FORTY=] TOTMSTEPS: PRINT" 
{HOME} {RVS}";'TM-TY: PRIN 
T" {HOME} {RVS}]";TAB(13); 
SC+TY: IFTM-TY<99THENIFT 
M-TY>98THENPRINT" {HOME} 
(RVS}{4 SPACES} [{OFF}" 
SOUND1, 3800+(SD*TY),1:N 
EXT:SC=SC+TM: PRINT" 
(HOME}{RVS}{2 SPACES]®9 
[SPACE] {OFF} ";TAB(13);" 
{RVS}";sc 
SLEEP1:SN=SN+1: IFSN=5TH 
ENSN=1. 

GOTO1Oa 
PRINT" {HOME} [RVS}";TM;" 
{HOME} {RVS)"TAB(13);Sc: 
RETURN 


REM eevee eeea eh HI SCORE 
eens 





GB 


JG 


PB 


GB 


Fx 


PB 


| FG 


KG 


AH 


| CD 


FC 
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968 


570 
986 


590 


606 


610 


620 


630 


646 


6568 
660 
670 
680 


696 
766 


7198 


728 


749 


758 


7608 
778 


780 


796 


13) 4) 4) 


810 


820 


PLAY"O4SCCFGBBAR AB":PR 
INT" {CLR} {2 Down} 

{11 SPACES}YOUR SCORE: 
(SPACE) ";SC:AB=65:0P=9 | 
PRINT"{1@ SPACES}cccccc 
ececcceccccccc({uP]" 
OPEN 2, 8, 2, "HI-SCORE,S,R 
":FORI=)TOlO: INPUT#2, BS 
(I): INPUT#2,A$(I):NEXT: 
CLOSE2:SCRATCH"HI-SCORE 
Ld 


FORU=1T010: IFSC>VAL(BS( 
U) )THENNEXT 
UsU =] :FORE=1TOU-1:A$ (E) 
=AS(E+1):BS(E)=BS(E+1):; 
NEXT:BS (U )=RIGHTS (STRS ( 
i reansaaed un ES 
U ae ce es 
TE=LEN(BS(U)):FORP=1T06 
-TE:BS (U)="0"+BS (U):NEX 
T 
PRINT"{2 DOWN]}":FORE=10 
TO2STEP-1:PRINTTAB(11); 
ll-E;"{2 SPACES}";AS(E) 
>"{3 SPACES}";BS(E):NEX 
T 
PRINTTAB(18);10; " 
{2 SPACES} ";AS(1);" 
{3 SPACES}";B$(1) | 
PRINT" {HOME} {5 DOWN) ":F 
ORI=1TOl11-U: PRINT: NEXT: 
NMS="" 
PRINT" {UP} "TAB(16+0P);C 
HR$ (AB) 
IF JOY (2 )=7THENAB=AB-1 : 1 
FAB<65THENAB=65:GOTO65@ 
IFJOY (2 )=3THENAB=AB+1 : I 
FAB >90THENAB=98: GOTO65G 
IFJOY (2 )=128THENNMS=NMS 
+CHRS (AB): AB=65:0P=0P+1 
: SLEEP]; IFOP=3THEN700 
GOTO65a 
AS (U)=NMS:OPEN2,8, 2, "HI 
-SCORE,S,W":FORI=1TO1O: 
PRINT #2, BS(1I):PRINT#2,A 
$(1):NEXT:CLOSE2 
PRINT" {HOME) “:FORI=1TO1 
8: PRINT: NEXT | 
PRINT" {7 SPACES}PRESS B 
UTTON TO PLAY AGAIN":GO 
TO48e8 
REM ******® CLEAR HI-SC 
ORES veerrreee 
SCRATCH"HI=-SCORE": PRINT 
"{CLR} MAKING HI-SCORE"; 
OPEN2, 8, 2, "HI-SCORE, S,W 
":PORI=1T018:PRINT#2, "90 
89008": PRINT#2, "=-—"3:NE 
XT:CLOSE2: RETURN 


X=62:Y=135:COLOR4, 16 
PRINT" {CLR} {RVS} {RED} 
{28 SPACES}#c3" 
PRINT"{RVS} {OFF] 

{24 SPACES} {WHT}++{RED} 
Rca{RVS}{9 SPACESTEC3 
{OFF]" 

PRINT" ({RVS} {OFF} 

{25 SPACES} {WHT} EQ] 

{5 SPACES) £Q9+EWJ{RED} 
ECA3(RVS}13 SPACES]EC3 
{OFF}" 

PRINT" {RVS} {OFF} 

(31 SPACES} £53{RVvs} 

{3 SPACES} [OFF] 

(2 SPACES} {RED]&c3{RVS} 
{2 SPACES} [OFF}" 
PRINT"{RVS} {OFF} 

{37 SPACES} {RVS} 

{2 SPACES] {OFF}" 
PRINT" {RVS} ECH{OFF} 
(36 SPACES] ECI{RVS} 
{OFF}" 
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830 


840 


B50 


860 


870 


890 


998 


919 


920 


930 


946 


9508 


960 


970 


988 





PRINT"{RVS}{9 SPACES] 
Ec3{(OFF}{29 SPACES} 
{RVS}{2 SPACES} {OFF} 
(WHT }++++{RED} 

{3 SPACES} ECA{RVS] 

{4 SPACES} ECI{OFF} 

{24 SPACES} [BLK]}£Q3 
{RED} {RVS} [oOFF}" 
PRINT" {RVS} {OFF} [WHT}+ 
++{RED}{5 SPACES} {WHT}+ 
TRED}&ca{RVvS} 

{15 SPACES}ECI{OFF} 

{11 SPACES} [BLK]}EQ4 
{RED]{RVS} [OFF}" 
PRINT"{RVS} {OFF} 

(2 SPACES} [WHT}+ 

{5 SPACES) &2Z3++TRED} 
{RVS])EF9I(3 SPACES) {OFF} 
(WHT}EW3{4 SPACES} +++ 
{RED} kc3{RVS}{2 SPACES} 
{OFF}){11 SPACES} {BLK} 
koa{RED}{RVS} {OFF}" 
PRINT"{RVS} {OFF} 

{9 SPACES} {WHT} £Q]++ 
{RED} {RVS}{2 SPACES] 
(OFF) (WHT) +EW3 

(5 SPACES} £Q3++{RED]EC3 
{RVS} EC3{OFF] — 

{18 SPACES] ED3{RVS} 
[OFF}" 

PRINT" {RVS} [OFF} 

{18 SPACES} {WHT} EZHEX49 
{RED} {RVS} {OFF} {WHT}+ 
gwa(8 SPACES} £Q4+{RED} 
(RVS]}{2 SPACES} {OFF} 





{9 SPACES] [BLK]£Q4{RED} 


{RVS}{2 SPACES} {OFF} " 


< 80 PRINT" {RVS} {OFF} 


{12 SPACES}{RVS] {OFF} 


{WHT} £W3{19 SPACES}EQ3 
{RED} kca{RVS} {OFF} 


{9 SPACES} {BLK}EQ3{ RED} 

{RvVS}{2 SPACES) {OFF])" 
PRINT" {RVS} [OFF] 

{12 SPACES}JET3 

{13 SPACES}{RVS} {OFF} 
(9 SPACES} {[BLK}EQ4{RED] 
{RVS}{2 SPACES}{OFF}" 

PRINT" {RVS} [oFF} 

{26 SPACES]{RVS} {OFF} 
{9 SPACES} {BLK} EQ4{RED} 

{RVS}{2 SPACES} {oFF}" 

PRINT" {RVS]} [OFF] 

{37 SPACES] Eca{RVS} 

{OFF}" 

PRINT" (RVS} [OFF] 

{37 SPACES} {BLK]KQ3 
{RED} {RVS} [{OFF}" 

PRINT" {RVS]} [OFF} 

{37 SPACES} {[BLK}EQ3 
{RED} ({RVS} [{OFF}" 

PRINT" {RVS} {OFF} 

(37 SPACES} {BLK}EQ3 
{RED} {RVS} [{OFF)" 

PRINT" {RVS} [OFF] EFI 
[11 SPACES}E£@3 

{24 SPACES] {BLK}kQ3 
{RED} {RVS} [{OFF}" 

PRINT" {RVS}{2 SPACES} 

{OFF}KF3{198 SPACES} 
(RVS} {OFF} {WHT}EQd 
{22 SPACES} [BLK]£Q3 
{RED} {RVS]} [oFrF}" 

PRINT" {RVS}{3 SPACES} 
{orr}{198 SPACES}{RVS} 
{OFF} [WHT }+Ew3 

{15 SPACES]KA3 

{6 SPACES} {REDIED3{RVS} 
{orFr} rT] 

PRINT" (RVS}{3 SPACES} 
(OFFJEFI{WHTJE2 RI+ES] 

(4 SPACES} [REDJEDS[RVS} 
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1608 


10616 
1820 
1830 


1640 


1858 


1066 


1676 


xC 1086 


1690 


11898 
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[OFF } [WHT } +++ 

{12 SPACES}KAI+Ew3 

{5 SPACES} {RED]{RVS] EV3 
{2 SPACES} {OFF}" 
PRINT" ([RVS}{4 SPACES} 
(OFF) EFI(WHT}+++ES9 
{RED} EDa{RVS] _ 

{3 SPACES} EC3(OFF} {WHT) 
EQa++E2 RI+(6 SPACES) 
EQad++++ES312 SPACES} 
{RED]ITRVS}EV9{4 SPACES} 
{OFF}" 

PRINT" {RVS}{39 SPACES} 
[OF F}";:POKE20623,224:P 
OKE56295, 2 

RETURN 
X=262:Y=142:COLOR4, 3 
PRINT" {CLR} K19{RVS} 
{48 SPACES} {OFF}" 
PRINT"K1A(RVS} {oFrF} 
{8 SPACES}{RVS} [oOFF} 
{WHT} EQHELJ{(RVS} [OFF] 
{WHT} CEEJEX9 

{17 SPACES} §19{RVS} &F3 
{7 SPACES} {OFF}" 
PRINT"(RVS} [OFF] 

{8 SPACES}{RVS} [OFF] 
(WHT}EQHE149(RVS} [oFF} 
(27 SPACES} {RVS}EJq 
{OFF}{7 SPACES} {RED} 
EDJELAI{RVS}{3 SPACES} 
(OFF}{27 SPACES} {RVS} 
RJa{OPF}" 

PRINT" {RVS} [OFF} 

{8 SPACES] (WHT]EM3 £13 
({RVS} {OFF} {BLK]kS 
(26 SPACES}£13{RVS}kg3 
{OFF} " 

PRINT" {RVS} {OFF} 

{8 SPACES} {WHT} EM3 
[BLK}C+EX3{5 SPACES} 
[WHT } EQ3{RED}{RVS}kug 
[OFF}{WHT}]ES3 [RED] 
£12 P3{5 SPACES}£13 
{RVS}RIX(OFF)" 

PRINT" (RVS} [OFF] 

{8 SPACES} {WHT]EM3 
{RED} {RVS} {OFF} 

{6 SPACES} {WHT} EQH 
{RED} {RVS} £13 

{14 SPACES} {OFF} {RED} 
RFI{4 SPACES}E14{(RvVS} 
RIX (OFF}" 

PRINT" {RVS} [OFF] 

(8 SPACES} {WHT} EM] 
{RED} {RVs} [oFF] 

[6 SPACES} {WHT} Koj 


{RED} {RVS} {OFF} {WHT} | 


EQHE19(RVS} [OFF} {WHT} 
EX} EQRUE1X(RVS} {orFr} 
{WHT} EX3{2 SPACES} KQ3 
El9(RVS} (OFF} (WHT) EX] 
R1L4A({RVS} [BLK] EL3{OFF) 
{4 SPACES)E13{RVS]}k79 
{[OFF}" 

PRINT" {RVS} {OFF} 

{8 SPACES} {WHT} EM 
{RED} [RVS} {OFF} 

{6 SPACES} {WHT}KQ2 
[RED] {RVS} {OFF} {WHT} 
EQUR19(RVS} {OFF} 

{2 SPACES} {WHT} KQHE13 
{RVS} ({orF} (3 SPACES] 
{WHT} KQ9E19{2 SPACES} 
[RVS) {OFF} {BLK} Ew 

{4 SPACES] K149{RVS}K73 
[OFF] ti 

PRINT" {RVS}{2 SPACES} 
{OFF}{S SPACES} {wHT] 
EYS{RED){RVS} [OFF] 

{6 SPACES} {WHT} £Q3 
{RED} [RVS} [{oFrF} 
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{2 SPACES} {RED}Ec3 

{2 SPACES} {WHT}£Q3 

{4 SPACES} {RED}EC3 

{2 SPACES}E13{RVS} 
{OFF} {BLK} EW3 

{4 SPACES}El13(RVS} E79 
[OFF}" 

PRINT"{RVS} [{OFF]} 

{9 SPACES}{RED]} [{RVS]} 
{2 SPACES} {OFF} 

(6 SPACES} {WHT} EQ3 
{RED} {RVS} [OFF] 

{5 SPACES} £c¥ 

{7 SPACES}£14{RVS} 
{OFF} {BLK} kWw3 

{4 SPACES}K139{RvVS}k79 
(OFF]}" 

PRINT" {RVS) [OFF] 

{9 SPACES}{RED}{RVS} 
([OFF}{5 SPACES}{RED} 
ED3Jc{RVS} EDI{OFF} 
{13 SPACES}£13{Rvs} 
[OFF}{BLK]EW3 

(4 SPACES}EL3S{RVS} E73 
[OFF}" 

PRINT"{RVS} {OFF} 

{9 SPACES} {RED} {RVs} 
{OFF}(6 SPACES} {WHT} 
RQA{RED}{RVS} {OFF} EH 
{13 ae 
{OFF} {BLK} Ew] 

{4 SPACES]E13(RVS} E79 
{OFF}" 

PRINT" {RVS} [OFF} 

{9 SPACES}{RED}{RVS]} 
{OFF]{6 SPACES} {WHT} 
EQa{RED}{RVS} (OFF)EHI 
{13 SPACES}K14{(Rvs} 
{OFF} {BLK]kKwd 

{4 SPACES}E14{RVS] E79 
{OFF}" 

PRINT" {RVS} {OFF} 

{9 SPACES} {RED} {RVS} 
{OFF}{6 SPACES} {WHT} 
ROa{RED}{RVS} {OFF] RH 
{6 SPACES] ElLA{RVS}EFI 
{7 SPACES) [{oOFrr} {BLK} 
kwi{4 SPACES]K1L4I{RVS} 
EJI{OFF}" 

PRINT"{RVS} [{BLK}ED3 
EFI{OFF}{7 SPACES} 
{RED} {RVS] {OFF} 

{6 SPACES} {WHT} £Q4 
{RED} {RVS} {OFF} 

(9 SPACES) £149{(RVS} 
(BLU KDARFIEDALOFF} 
EL3{RVS} {OFF} {BLK}EW3 
{4 SPACES} El4({RVS}KI9 
{OFF}" 

PRINT" {RVS} £83 

{2 SPACES} {OFF} {BLK} 
EG3{4 SPACES}{REDJED3 
{RVS}{2 SPACES] [OFF] 
{6 SPACES} [WHT] KQ3 
{RED} {RVS) {OFF} 

{9 SPACES} E14{({RVS}ED3 
{BLU}{3 SPACES} {OFF} 
(BLK}ESIELA{RVS} {OFF} | 
{BLK} EW3{4 SPACES}E19 © 
{RvS}KkId{OFF}" 
PRINT"({RVS} B89kDIEFI 
{OFF} [BLK] EG3 

{13 ESR aNET CHER ROS 
{RED} (RVS} [oOFF} 

{10 SPACES} {WHT}E3 T3 
{BLK]EZIE1I{RVS} [OFF} 
{BLK]EX9{4 SPACES]£13 
(RVS}kI3(OFF}" 
PRINT"{RVS} £83 

{2 SPACES} {OFF} {BLK} 
EG3{12 SPACES}{RED} 
(RVSs}{3 SPACES] [oFF} 
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{14 SPACES} E139{RVS]ED9 
{OFF}{5 SPACES}{RVS] 
RITZ {OFF}" 

PRINT" {RVS} ESHEDRHEFR 
{OFF} {BLK}EG3 

{12 SPACES} {RED} {RVS} 
{3 SPACES} {OFF} 

{28 SPACES] £143{(RVS] E79 
(OFF}" 

PRINT"{RVS} ESHEDIEFA 
[OFF } (WHT) ES 

{12 SPACES}{RED}{RVS] 
{SPACE} K33Q{RED} {OFF} 
{28 SPACESTK1A(RVS} E79 
{OFF}" nee) 
PRINT" {RVS} ESAEDIRFA 
{OFF} (WHT } ++ 

{ll SPACES] TRED}[(RVS} 
{3 SPACES} {oFF} 

{28 SPACES}K14[(RVS} Kua 
{OFF} " 

PRINT" {RVS} £83 

{2 SPACES} [OFF }{WHT}++ 
kS3{9 SPACES}KA3{RED] — 
{RVS} E3aQ{RED} [OFF] 
{SPACE} {WHT} £H3 

{17 SPACES} £14{RVS] 
[OF F}" 

PRINT"{RVS} £849 

{5 SPACES} {OFF} {wWHT}cc 
cccckla{Rvs}{7 SPACES] 
TRED} £2 YSECRI{OFF} 

{17 SPACES}E14{(RVS} 
{OFF} " 


PRINT" {RVS]{39 SPACES} | 


{OFF} ";:POKE2023, 224:P 
OKE56295,8 

RETURN 

X=280 : Y=2908:COLOR4, 16 
PRINT" {CLR} {GRN} {RVS} 
{48 SPACES}{OFF}" 
PRINT"{RVS} [OFF] 

{19 SPACES} K*9{RVS] 
[4 SPACES} {OFF} {WHT}- 
{BLK}£13 EI{GRN}{RVS) 
[SPACE] [OFF}" 

PRINT" {RVS} [OFF} 

{21 SPACES]E*]{RVS} 
{2 SPACES} {OFF} {WHT}- 
{13 SPACES}{GRN}(RVvs] 
{SPACE} [OFF}" 
PRINT" {RVS]} [OFF] 

(22 SPACES}{RVS} 

{2 SPACES} {OFF} {wHT}- 
{13 SPACES} {GRN]} {RVS] 
{SPACE} (OFF}" 
PRINT"{RVS] {OFF} 

{13 SPACES} {RVS]£ 
{OFF}{7 SPACES]}£*3 
{(RVS} {OFF}{WHT}- 

{13 SPACES} {GRN} [RVs} 
{SPACE} {OFF}" 

PRINT" {RVS}{15 SPACES} 
{OFF}£{6 SPACES} {WHT) 
UC({GRN] {RVS} [oFF] 
TWHT}K{13 SPACES} (GRN]} 
(RVS] {oOFF}" 

PRINT" {RVS}{4 SPACES} 
{OFF}£{17 SPACES} 
{WHT}={GRN} [RVS}£ 
{OFF}T7 spaces} {Rvs} 
{OFF} {6 SPACES}{RVS] 
{OFF}" 

PRINT" (RVS}{3 SPACES} 
{(OFF}£{17 SPACES} 
{Rvs}£{3 SPACES} {OFF} 
{7 SPACES}{RVS} [oFrF} 
{6 SPACES}{RVS} {OFF}" 
PRINT" {RVS}{2 SPACES] 
{OFFJ£{17 SPACES} 
(RVS}£{3 SPACES} {OFF] 
£{7 SPACES}{RVs]} 
TOFF}{6 SPACES}{RVS} 
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{[OFF}" 

PRINT" {RVS}{2 SPACES} 
{OFF}{8 SPACES]}£59 
{RVS}£{GRN} 

{11 SPACES} {OFFJ£ 

{9 SPACES}{RVS} TOFF} 
{6 SPACES}{RVS} [OFF] 
PRINT" {RVS} [OFF] {WHT} 
-{GRN]}{7 SPACES]}§53 
{Rvs} £{4 SPACES) {GRN) 
{2 SPACES} [OFF] £ 

{14 SPACES}{RVST£ 
{OFF}{6 SPACES] {RVs} 
{OFF}" 

PRINT" {RVS} [oOFF}{wHT] 
-{GRN}{7 SPACES)({RVS} 
TSPACE} £59{4 SPACES} 
{GRN} [OFF] £ 

{14 SPACES} [{RVS}<£ 

{2 SPACES} [OFF] 

{6 SPACES}{RVS} [OFF]" 
PRINT"{RVS]} {OFF} {WHT} 
-{GRN}{7 SPACES}{RVS} 
TSPACE}£53{2 SPACES} 
{GRN}{2 SPACES) {OFF} £ 
{14 SPACES] {RVS]£ 

{3 SPACES} (OFF) 

{6 SPACES}{RVS} [OFF}" 
PRINT"{RVS} {OFF} (WHT) 
-({GRN}]{7 SPACES}[(RVS} 
TSPACE}£53{2 SPACES} 
{GRN} [{OFF}£ 

{14 SPACES}[RVS}£ 

{2 SPACES}M [OFF] 

{6 SPACES}[RVS} [OFF] 
PRINT"{RVS} {OFF} {WHT} 
-~{GRN}{7 SPACES}{Rvs} 
T3 SPACES} {OFF}£ 

{14 SPACES} {RVST£ 

{2 SPACES}]M {OFF]£ 

{6 SPACES}[RVS} [OFF}" 
PRINT"{RVS} {OFF} {WHT} 
-(GRN}{7 SPACES}{RVS} 
T2 SPACES} (OFFJ£ 

{14 SPACES} {RVS]£ 

{2 SPACES]M [OFF] £ 

{7 SPACES}[RVS] [OFF]}" 
PRINT"{RVS} {OFF} {WHT} 
-{GRN}{7 SPACES}{RVS} 
TSPACE} {OFF} £ 

{14 SPACES} {RVS} £ 

{2 SPACES}M {oFFJ£ 

{8 SPACES}[TRVS]} {OFF}" 
PRINT"{RVS} {OFF} {WHT} 
-{GRN}{7 SPACES}{RVS} 
TSPACE} {OFF} 

{14 SPACES} {RVS}£ 

{4 SPACES} {OFFJ£ 

{9 SPACES]}{RVS]} {oFF}" 
PRINT" (RVS} {OFF} {WHT} 
-{GRN}{28 SPACES}£53 
TRVS}£ {GRN]} 

{5 SPACES] {[OFF] 

{18 SPACES}{RVS} [OFF] 


PRINT"{RVS} {OFF} {WHT} | 


JI{GRN] {18 SPACES]E53 
TRVS}£ {GRN} 

{3 SPACES} {OFF} {WHT)- 
{SPACE} {GRN]} (RVS} 
{(OFF}{1@ SPACES}{[RVS]} 
{SPACE} {oFF}" 

PRINT" {RVS} E53 

(3 SPACES}{OFF} 

{17 SPACES}{RVS]} [{GRN] 
{3 SPACES} {OFF} [{wHT} 
EQacC(GRN} {RVs} {OFF} 


{10 SPACES}{RVS} {OFF} | 


PRINT" {RVS} £53 
{3 SPACES} {OFF} 
{16 SPACES} {GRN}{[RVS} 
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£{4 SPACES} {OFF} {WHT} 


CEW3 [{GRN}{RVS]} [OFF] 


{18 SPACES}{RVS} [OFF] 
Li) 


PRINT" {RVS} £53 

{4 SPACES} {OFF} {WHT} CC 
CI{18 SPACES} {GRN] 

{Rvs}£{2 SPACES} [OFF] 
(WHT} - UEWZ [GRN} 
{RVS} [TOFF}{18 SPACES] 
{RVS} [OFF}" 

PRINT" {RVS} £59 

{7 SPACES} {OFF} {WHT}- 
{8 SPACES}{GRNJED9 
(RVS}{4 SPACES} {OFF] 
(WHT]CK {RVS]} {OFF]uc 
{GRN}TRVS} {OFF} {WHTJC 

ececcccccc{GRN} [RVS} 
OFF 

PRINT" {RVS}{39 SPACES} 
{OFF}";:POKE2923,224:P 

OKE56295,5 

RETURN 
X=116:Y=165:COLOR4, 16 
PRINT" {CLR} £53{RVS} 
{17 SPACES}cccccccc 

{3 SPACES] {OFFJE11 U9 


{RVS}EFI{OFF}" 


PRINT"EJ3{6 SPACES}EL3 
EHI{15 SPACES} &*3{RVvs} 
{3 SPACES} {OFF} 

{11 SPACES} £L3" 

PRINT" &J4{6 SPACES} 
(WHT } ECIRVIES9 

{16 SPACES}K*3(RVS} 
(OFF}{11 SPACES]EL3 
PRINT" £J4{25 SPACES} 
k*3(RVS}-{OFF} 

{11 SPACES}—L3" 

PRINT" KJ3{26 SPACES] 
Hee {OFF}{1l SPACES] 
t; a 

PRINT" {RVS}{16 SPACES} 
(orr}&Fa(22 SPACES] £L9 


PRINT" {RVS}{17 SPACES} 
{OFF} RFI{15 SPACES} 
Gs {OFF}{5 SPACES] 
L i 
PRINT" {BLKJE6 EQ+E6 EQ 
+E2 EQIESS{RVS} 
T3 SPACES} (OFF}]RF3 
{12 SPACES} Kkp4a{RVS]} 
{OFF} {5 SPACES] EL3" 
PRINT"EKJ3({5 SPACES] 
{WHT} {RVS}KIAZ{(OFF} 
{6 SPACES} {RVS]EI9 
{OFF}{2 SPACES}E59 
{RVS}{17 SPACES} ED] 
{OFF}{5 SPACES} EL3" 
PRINT"EJ3({15 SPACES} 
{RVS]{3 SPACES} {oOFF) 
(WHT}+++kwa{9 SPACES} 
ESI (RVSJEFIECR(OFF) 
{5 SPACES] KL3" 
PRINT"KJ49(15 SPACES} 
{WHT} E3 TQ EWREZI 
{18 SPACES}K59{RVSIEV] 
{OFF} {WHT }UI 
{3 SPACES} K539ELI" 
PRINT" EJ4{4 SPACES} 
{RED}E9 @3£59 
{18 SPACES} {RVS} [OFF] 
{BLUJEDA{RVS} [oFF} 
{WHT}-{3 SPACES]E59€L9 
EJ9{4 SPACES} E34(RVS} 
{9 SPACES} {OFF} {WHT} 
kod{17 SPACES} E53{RVS]} 
{3 SPACES} {OFF} {WHT}- 
E59{3 SPACES} ELIET3 
{4 SPACES}E33{RvVS} &C3 
EVAECTEVAECTEVIECIEV] 
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{OFF} {2] SPACES} {WHT}- 
E53{3 SPACES} EL3" i 
PRINT"KJ3{5 SPACES} 
{RVS} {OFF]£79-£5] 
{RVS} {OFF} (5 SPACES} 
E39{RVS} cc [oFF} 
(WHT } kU9{1I5 SPACES}- 
{3 SPACES}]E53£L3" — 
PRINT" £JI9(5 SPACES} 
(RVS} {OFF]E73-E53 
[RVS]) {oFF]{5 SPACES} 
{RVS}{14 SPACES]}E*3 
{OFF} {6 SPACES} {WHT]}- 
(3 SPACES] K539£L3" 
PRINT"EJ4{5 SPACES} 
{RVS} {OFF}79-E5] 
(RVS) {OFF}){18 SPACES) 
E*3(RVS}) E*F(OFF} 

{5 SPACES} |WHT}- 

[3 SPACES} K53EL3" 
PRINT"KJ3{5 SPACES} 
(RVS} {OFF}E73-£53 
(RVS} {OFF}{19 SPACES} 
E*J{RVS} E*}(OFF} 

{4 SPACES} (WHT}- 

(3 SPACES) ESJELIETR 

(5 SPACES}{RVS} £73 
E53 ({OFF}{28 SPACES} 
E*J{RVS} [OFF} 

[4 SPACES} {WHT }- 

[3 SPACES} K53—EL3" 
PRINT"EJ39{5 SPACES} 
{RVS} {orrF} {Rvs} 
{OFF} {21 SPACES} [RVS] 
{SPACE} [OFF] {4 SPACES} 
HS SEN SPACES} £53 
KLa” 

PRINT"KJ4{5 SPACES] 
(RVS]KF3(2 SPACES} Ec3 
{OFF}{2@ SPACES}{RVS} 
{SPACE} {OFF}{8 SPACES} 
KLA" 

PRINT"KJ3(6 SPACES} 
(RVS]EF3{2 SPACES} 

kll P¥ [OFF}{8 SPACES] 
{RVS) [{OFF}{8 SPACES} 
EL" 

PRINT"EJ3{29 SPACES} 
{RVS) {OFF}{8 SPACES} 
ELA" 

PRINT"EJ3(29 SPACES} 
{(RVS} {oFF}{8 SPACES} 
ELA" 

PRINT" {RVS} £29 Ug 

{9 SPACES) {OFF]}";:POKE 
2023, 224: POKE56295, 12 
RETURN 

I=3456 

READ A:IF A=256 THEN R 
ETURN{7 SPACES} 

POKE I, A: I=I+l:GOTO18) 
i] 
DATAGOD, G0, OO, BOG, BB 
0,080,000,0008 
DATAQOD , 004, B90, B80, BO 
9,060,000, 040 
DATAGOG , G88, 186, 680, 88 
@,818,128,816 

DATAGOO, 162,026, 800,84 
3,133,608,811 

DATA225, 008,010, 232, a0 
0,018,168,0008 

DATAG20, 160,000,005,12 
8,000,001,000 
DATAGOO, OO, GOB, BBO, BO 
8,860,800,0008 


DATAGSO,600,000,008,380 — 


0,009,000,0008 
DATABOO, B60, 880, 000, O08 
0,006,000 ,000 
DATAGOO , 000,000, 008, BB 
0,000,000,000 
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1930 
1948 
1950 
1966 
1976 
1980 
1996 
2000 
26106 


| 2620 


26030 
2040 


20508 


. 2668 


20708 
2080 


2690 


; 2100 


2118 
2129 
2136 
2146 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
22508 
2260 
2270 
2280 


2290 


| 2300 


2310 
2320 
2330 


DATAGHA, 880, 800,990,088 
4,8000,000,884 
DATAG64, 090, 016, 964,91 
8,168,170,171 
DATA232,170,171, 232,06 
4,016,168,064 
DATABO8, 816, 888, 000,88 
4,000,000,084 
DATAOHOD, 060,800, 000, 00 
8,000,000,000 
DATABOD , 800, 000, O00, OB 
6,000,000,086 
DATAGOS , 080,088, 0088, 88 
0,6060,000,000 
DATAGGO , O80, 880,808, BB 
0,000,000,800 
DATAGOO , 080, 808,001,908 
0,000,005,128 
DATABBD , 820,168,800, 01 
8, 232,000,811 
DATA232, 900,011,161, 068 
9,042,133, 889 
DATA162, 028,818,128, 61 
6, 166,000,606 
DATA#48, 680, B88, 809, BB 
0,000,004,8000 
DATAG88, 088, B80, 080, BB 
8,0008,000,800 
DATAGOO, 800,000,800, 08 
8,600,000, 060 
DATAGOO, 080,800,680, 08 
8,000,8000,9080 
DATAG@O, 888,004,168, 06 
4,085,169,864 
DATAGH5, 169,0864,004,18 
4,064,000,184 
DATAGOO, 000,184,000, 00 
0,168,000,900 
DATA168, 000,800,832, 09 
8,800,832, 000 
DATAGB8 , 832,000,808, 83 
2,000,68001,8033 
DATAO#O, 001,169,080, BO 
1,033,000,000 
DATAGBO , 008,880,008, 80 
0,8008,000,000 
DATAGOO , 800, BB0, B88, OB 
),800,000,008 
DATASOO , 080,600, 064, 58 
0,002,080,006 
DATA#18, 820,008,043, 13 
2,000,843,224 
DATAGG8,074, 224,600,088 
2,168,000, 020 
DATA138, 000, 004, 002,13 
2,000,000,169 
DATAGOO , 080,840,000, 8 
8,096,000,000 
DATAG16, O80, B68, B99, OB 
0,000,000,800 
DATAGOG, B80, 008, B98, OO 
0,0600,000,000 
DATABOS , 080, 800, 000, OB 
0,000,000,000 
DATA®OD, BOO, 821,008, 88 
8,8021,000,808 
DATAGH4, 880,001 ,042,16 
8,001,843,234 
DATAL/6,043, 234,176, 64 
2,160,001,004 


DATA®80,601,621,6080,80 — 


0,021,000,6000 
DATAOOD , 000, B00, B00, BB 
0,000,000,000 
DATAOOO , O00, B08, 800, 08 
8,009,0800,000 
DATAGHO, 000,000, 600, 86 
8,000,800, 0900 
DATAGOO , 090,900,016, BB 
0,000,096,000 
DATAOOD , 040,090,000, 16 
9,004,002,132 





CJ 2340 
HF 2350 
XB 2360 
GR 2370 
BQ 2380 
GD 2396 
CX 2460 
KC 2419 
HM 2420 
OR 2430 


HD 24490 


CA 2458 


RD 2468 


Jc 2470 


| HG 2486 


| sp 2499 


QS 2500 


JB 2510 


| AB 2520 


BA 25390 
JQ 2548 
RB 2550 
ED 2560 
JB 2578 
PJ 2586 
MS 2599 
BM 2600 
BH 2610 


QX 2620 


DATA@20,138,000,082,16 
8,009,075,224 

DATAGO0, 047,160, 008,04 
2,132,886,01B | 
DATA926,800,002,09809,00 — 
0,0600,964,080 

DATAGDO, 080,000,000, Bo 
0,000,000,000 
DATAGOD, B00, 000,000, BO 
0,000,0090,000 

DATAGO0, 090,800,001, 083 
3,900,081,169 ; 
DATAOOD, O81 ,033, 8000, 08 
8,832,000, 000 

DATA®32, 000,000,032, 08 
0,000,032,000 
DATAOBDO , 032,000, 000,16 
8,000,000,184 
DATAGOO, O80, 184,080, 80 
4,184,064,005 

DATA] 69,064,005, 169, 086 
4,004,168,064 
DATAS8O , O08, 000, BOO, BB 
8,800,000,0008 
DATAS80, 800, 000, B80, BB 
08,000,000, 080 

DATAGHOD, 600,600,000, 00 
6,000,000,000 
DATAGO0 , 800,009,890, 90 
6,020,000,6000 

DATA9S85, 000,001,085, 86 
4,005,885,980 
DATA@21,085,084,0985,08 
5,8985,106,150 

DATAl69, 101,150,089, 18 
1,150,089,106 
DATA150,169,106,150,16 
9,106,150,169 
DATA166,158,169,166,15 
0,169,106,158 

DATA169, 196,158,169, 19 
6,158,169,008 
DATASO0 , 688, 880, B60, BO 
1,000,064,007 
DATAG64, 064, 007,864, 88 
8,049,000,004 
DATAGOD , 018,032,800, 01 
4,000,128, 6000 

DATA®O2, 136,192,866, 94 
2,131,060,168 

DATAGHO, 648,043,032, 66 
2,168,012,616 

DATAG32, 128,000,000, 04 
0,003,000,064 

DATA®48, 000,000,000, 01 
6,0816,131,000 

DATA116, 160,000,116, 00 
0,000,0816,0008,256 


Program 2: Miami Ice 
For Commodore 64 
Version by Kevin Mykytyn, Editorial 


Programmer 


Please refer to the “MLX” article in this issue 
before entering the following listing. 


8881:0Cc 
@889:36 
@811:208 
8819:A2 
0821:20 
0829:De 
6831:10 
0839:0B 
0841:00 
8849:A9 
8851:52 
8859: Dos 
8861:AD 
8869:De 
0871:41 


1 §0879:48 


88 OA BO JE 20 32 30 64 
32 88 868 O08 20 EG BE ll 
BC 8D AS 868 AB 18 BY B9 
88 99 O08 D4 88 10 F7 98 
C4 68 20 75 BA AD Gl AS 
29 10 FO F9 AZ OB AO FD 
18 20 FO FF AY E2 AO GF 
20 1lE AB A6 B4 ES AY DB 
28 CD BD AY C8 85 FS 63 
06 85 F9 20 D6 OD 20 15 
BA 20 95 BE A2 64 88 BG 
FD CA DO FA AD JF DO 55 
JE D@ AD O61 DC 29 18 A2 
E8 A9 40 8D @4 D4 AY 25 
BD 04 D4 20 1D 69 206 FA 
09 CE 2). 13 DO G9 AD 77 








8@881;:22 
8889:CE 
6891; 8D 
8899:0D 
88A1:08 
O8A9: 88 
88B1:0A 
OBBB9:F 1 
068C1:D2 
g88Cc9:Cc4 
88D1:BD 
88D9:8E 
88E1:87 
@S8E9:EC 
BSBF1:18 
BSBF9: 26 
6901:0A 
6909:B4 
O911:F0 
0919:4A 
6921:A9 
6929;:F6 
8931:F8 
8939:18 
6941:F8 
| 8949: 23 
6951:01 
8959:49 
0961:8D 
6969:D0 
0971:0A 
8979:8Cc 
8981:8D 
6989:A9 
0991:20 
0999: 28 
O89A1:13 
H9A9: De 
O9B1:FO 
09B9:48 
O9C1:A5 
69C9:38 
89D1:66 
O09D9:c3 
B9E1L:E6 
H9E9:40 
B9F1:D4 
B9FS:A9 
BAG1:64 
BAG9:D4 
8A11:9¢8 
H6A19:18 
GA21:28 
BA29:A2 
9A31:29 
BA39:05 
@O@A41:60B 
OA49:85 
G0A51:60 
BA59:AG 
BAG1L:IA5 
HA69:26 
8A71:08 
BA79:FF 
@8A81:8D 
OAB9: 20 
| BAILI1LE 
8A99:04 
BAAL:DS 
BAAS: 05 
BAB1l:FC 
8AB9: 09 
OAC1:FB 
OACI:FD 
OADL:A5 
BAD9:18 
BAE1: 06 
BAE9: 85 
BAP 1:E0 
OAF9:@D 
O8BO@1:BD 
8BO9:B1 
OB11:62 
O0B19:Ccs8 
0B21:De 


AS 


AQ 


83 


20 


a) 4 


De 


19 


Ad 


DO I 





6B29:48 
@B31:4A 


6B39:68 1 


@B41:A5 
@B49:A5 
8B51:080 
@B59:A5 
8B61:D4 
6B69:02 
@B71:12 
8B79:20 
6B81:206 


| 6B89:28 


6B91:26 
6B99: 20 


@BA1:92 | 


@BA9:45 
OBB1:53 
8BB9:55 
@BC1:12 
@BC9; 20 
@BD1:26 
OBD9: 28 
O8BE1:00 
OBE9:4E 
OBF1:206 
OBF9: 20 
6CBl):1) 
8CO9;9D 
0C11:52 
8C19:)1 
6C21:9D 
8C29:53 
6C31:55 


| OC39:FF 


8C41:86 


| BOC49;EG 


@C51:C5 


| 8C59:45 


@8C61:CD 


| C69: 2D 


8C71:83 
O8C79:Al 
0C81:Cc3 
0C89;83 
68C91:83 
O8C99:A2 
O8CA1:45 
B8CA9:EA 
8CB1:06 
SCB9:A6 
HCCc1L:Al 


| gcc9o:c3 


O6CD1: be 
OCD9:Cl 
O8CE1:c9 
OCE9:F2 
OCF1l:A2 
OCF9: 2D 


| @6DG1:6B 


8D89: 08 
O8D11:27 
6D19:13 
@D21:8D 
O8D29:FO 
OD31:FO 
@D39:3E 
G8D41:F¢ 
8D49:4E 
6D51:13 
8D59:c9 
@D61:8D 
8D69:7F 
O0D71:90 
OD79:FF 
O8D81:FF 
8De89:8D 
8D91:De 
6D99:1c 


| 8DAlL:AD 


@DA9:@87 
ODB1:DC 
§DB9: 4c 
ODC1:A9 
8DC9:14 


1F 
4a 
82 
18 
7D 


29) 


85 
FE 
28 


54 


26 
53 
28 
43 
94 
41 
28 
20 
54 


20 i 


26 
26 


26 | 


12 
14) 
26 
20 
9D 
9D 
45 
9D 
9D 
20 
54 
28 
4 
C6 
cc 
47 
C2 
68 
83 
83 
E5 
83 
FA 
El 
El 
Cl 
Al 
B82 
81 
Cl 
65 
BE 
64 
El 
Ac 
3F 
95 
O81 
DS 
2A 
13 
EE 
196 
CE 
19 
CE 
23 
98 
13 
cg 
8D 
FF 
Bl 
DB 
LE 
OA 
13 
PA 
Gl 
FE 
8D 
AQ 


a) 


B7 





O8DD1: 81 
@DD9:1C 
ODE1:A9 
BDE9S:1E 
O6DF1:A2 
ODF9:15 
BEB1:22 
BEB9:26 
8E11:37 
@E19:AD 
BE21:13 
8E29: 080 
8E31:908 
BE39:FF 
8E41:38 
8E49:13 
8E51:13 
8E59:13 
BE61:1D 
BE69:1E 


| BET1:1F 
| @E79:85 


BES81:8D 
BE89:8D 
BE91:8D 


HE99:4A 


BEA1:2¢ 
OEA9:05 
@EB1:8D 


| BEB9:05 
| @EC1:18 
} BEC9:CE 
| @ED1:13 

| BED9:A9 


BEE1:00 
BEE9:5A 
OEF1:99 
BEF9:38 
OFB1:ES 
@8FO9:39 
O@F11:99 
OF19:F7 
O8F21:88 
@F29:5C 
OBF31:F9 


| OF 39: FB 


OF41:27 
OF49:1Cc 


| @F51:97 


OF59:982 
BF61:80 
OF69:09 
OF71:84 
OF79:EB 
OF81:0A 
OF89:00 
GOF91:88 
@F99:00 
@FA1:A9 


| OFA9: G9 
| @FB1:88 
| @FB9:B8 


@FC1:95 
OFC9: 408 
OFD1:60 
@FD9: 80 
BFE1:00 
OFE9: 28 
BFF1:198 


| @PF9:0B 


1691:88 
1999:988 
1811:608 
1619:6008 
1821:08 
18629:008 


| 18631:54 


1639:AB 
1941:49 
1949:54 
18951:98 
18659:08 
1961:88 
1869:08 


| 1871:86 


BD 
13 
26 
13 
cs 
DO 
13 
L3 
BD 
23 
BD 
8D 
8D 
69 
E5 
E9 
E9 
38 
13 
13 
L3 
82 
1D 
1LE 
lF 
4A, 
13 
A2 
20 
A2 
AD 
26 
60 
81 
B9 
10 
a] 
AQ 
AO 
88 
Bo 
Ag 
88 
39 
67 
07 
DO 
DO 
8D 
a) 3) 
5 ]4) 
Be 
14 
a] 6) 
14 
is) 
4) 4) 
a] 4) 
4) 4) 
20 
Ba 
8B 
AQ 
88 
Oo 
OO 
3) 4) 
a) 4) 
BG 
El 
14 
1) 
i) ) 
O08 
Be 
i) 4) 
46 
E8 
Lil) 
164) 
4) 
Ba 
5] ) 
5) 6) 
5) 4) 


JA 
8D 
BD 
AS 
A2 
AY 
Ag 
AQ 
2A 
13 
1A 
1B 
ic 
81. 
82 
4) 4) 
Li) 4) 
18 
AD 
AD 
60 
AD 
13 
13 
13 
BO 
AE 
a) 
D3 
O7 
26 
13 
48 
8D 
5A 
99 
37 
Oe 
JF 
16 
39 
36 
88 
BD 
ES 
Ag 
88 
AQ 
26 
68 
3) 4) 
28 
BA 
2F 
Ba 
a) 5) 
88 
ae 
8), 
1) 
20 
14) 
46 
06 
8a 
a4) 
04 
oT) 
A2 
I) 
AG 
Li) 
a) 4) 
4) 
Ba 
a) 
a) 6) 
AA 
19 
5) 5) 
Md) 
a] 4) 
1) 
BO 
14 


DS 
23 
1B 
O7 
FO 
64 
O7 
O7 
13 
308 
13 
13 
13 
85 
8D 
8D 
8D 
18 
1E 
1F 
49 
1D 
AD 
AD 
68 
12 
26 
SE 
BE 
BE 
13 
AD 
AQ 
OB 
OF 
Ba 
B9 
99 
Bo 
F7 
99 
A9 
16 
62 
BE 
03 
16 
a] 
DB 
14) 
14) 
4) 
BG 
Ag 
G2 
1s) 
Li} 3) 
Lids) 
21 
Be 
Oo 
BS 
85 
615) 
5) 4) 
06 
il) 
6A 
14 
BA 
15) 
06 
86 
5 ]4) 
1%) 
Be 
19 
AB 
B98 
5) 5) 
4, 
O8 
88 
Bo 
AD 


698 
13 
13 
BD 
FC 
8D 
8D 
8D 
68 
1A 
AD 
AD 
4c 
82 
1A 
1B 
ic 
6D 
13 
13 
FF 


13 


LE 
LF 
AD 
20 
13 


20 . 


CE 
208 
cg 
26 
=] 4) 
D4 
99 
36 


5A 


a) 4) 
DA 
Ag 
3c 
88 
F8 
39 
FA 
B9 
F7 
8D 
60 
a4) 
168 
4) 
52 
5) 4) 
56 
Bd 
3) 5) 
81 
88 
20 
O08 
i) 4) 
AQ 
Bo 
i]s) 
a) 
i) 
64) 
Og 
E8 
85 
i) 4) 
4) 4) 
a1) 
14) 
I) 
40 
ES 
eT) 
89 
Be 
ay) 
4) 
81 
el) 


oT) 
12 


14) 
24 
3c 
13 
OF 
13 
13 
13 
10 
6D 
13 
13 
BE 
1A 
AD 
AD 
AD 
13 
La] ) 
5) 4) 
69 
E5 
E9 
E9 
DC 
BE 
88 
4A 
13 
4A 
FO 
8D 
OB 
68 
35 
5A 
99 
B88 
99 
A9 
88 
B3 
BC 
E4 
E8 
OF 
88 
DB 
Be 
4} 5) 
ey) 
84 
Oo 
B4 
a] 
o]4) 
i} 4) 
4) 6) 
29 
i) %) 
i} 4) 
BB 
a4 
OB 
Be 
I) 
Oa 
1.2 
85 
12 
BB 
14] 
BO 
a) 
oa 
O68 
A8 
OA 
5) 4) 


Li} ) 
3) 3) 
i} 4) 
4) 
15) 
ES 


8D 
13 
8D 
A5 
8D 
8D 
8D 
Ag 
OD 
1A 
69 
69 
49 
as 
1B 
1c 
24 
BD 
8D 
8D 
Ol 
82 
14 
B¢ 


4A . 


EE 
Da 
BO 
19 
BO 
09 
25 
D4 
Ag 
B9 
11 
0) 
Da 
88 
FF 
18 
= | 
8D 
BE 
SE 
99 
8D 
A9 
B2 
a] 
69 
G2 
4B 
BO 
49 
06 
id) 
Ol 
i) ) 
208 
a5) 
46 


.A8 


a) 
oh) 
68 
eh) 
8 
SD) 
A& 
Ol 
5) 
ifs) 
15) 
6a 
J) 
AA 
A8 
ds) 


a} ) 
68 
6] 5) 
14) 
85 
88 
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1979:9B E8 @8 OB Al BB 2A 85 
1981:08 A2 14 12 88 18 6A OO 
1989:08 28 66 O68 69 OB BO a4 
1691:098 88 88 88 BB OB BS AB 
1999:88 68 85 S66 8B BB BB BB 
18A1:80 88 88 88 BO BB BB BB 
19A9:88 88 66 64 AS 48 65 AD 
| 18B1:48 85 AOS 40 84 BB 49 BB 
19B9:B8 08 68 BB BB BO AB Bo 
19C1:80 AS 88 BG 20 BB BB 2B 
10C9:08 89 28 80 BB 286 BB Bl 
19Dl:21 68 81 AD BO Bl 21 OB 
19D9:89 68 883 BS OB BB BO BO | 
19E1:609 88 BS OS OO BB BB BB 
18E9:00 68 OO BB 48 GB G2 58 
160F1:80 OA 14 86 2B 84 B88 2B 
1O0F9:E0 08 4A EO BB 52 AB BB 
1181:14 8A 68 84 B82 84 OB Od 
L189:A9 OO 68 28 OO OB 68 OO 
1111:88 189 88 B88 BB BB OB BB 
1119:88 609 869 BB BB BB BB BB 
1121:08 83 88 BO OO BB BB BB 
1129:90 68 66 15 88 BB 15 BB 
1131:00 64 68 81 2A AB Bl 2B 
1139:EA AA 2B EA AA 2A AO 61 
1141:84 68 81 15 88 OB 15 BB 
1149:608 69 68 OO BO BB BB BB 
1151:008 B88 88 OB BO BO BB BB 
1159:08 08 86 OB BO BO BF OB 
1161:81 88 68 O87 48 108 O7 40 
1169:18 91 B88 Gl 36 28 G8 &8¢ 
1171:38 02 88 CO O84 A2 O83 BO 
1179:98 91 OC AB Bl O82 AB BB 
1181:04 22 BS B83 88 60 BC 16 1 
1189:08 28 CO 49 26 B81 DB CH 
1191:81 DB OB OB 48 BH BB BO 
1199:00 08 88 8B BO B1 BB 4B 
11A1:07 40 40 O87 40 B88 31 BO 
11A9:04 60 BA 26 OO BE BB BO 


{SPACE JAGAIN?7 [OFF}"; 
BA 338 LO=]1:HI=12:XP=15:YP=23 
: GOSUB1919 
348 IFAN=11THENRUN 
358 PRINT"{CLR}"; 
999 END 
JH 1968 POKE53281,15:POKE532890 
,»,6:REM SETSCR 
AR 1085 PRINT" {CLR} LBLU}"; 
CE 19818 FORI=1T024:PRINT"{RVS] 
{28 SPACES} LOFF} 
{12 SPACES}"; :NEXT 
FB 1815 PRINT" {RVS}128 SPACES} 
|OFF}|HOME}"; 
AC 1620 PRINTSPC(28)"{BLUJEAIC | 
cccccccccks4"; oy 
SG 1625 PRINTSPC(28)"B[RED} 
{2 SPACES} EUCHRE 
{2 SPACES}|BLUJB"; 
{32 SPACES} | 
DD 1838 PRINTSPC(28)"Ez3cccccc 
CCCCEX3"; 
XF 1831 PRINTSPC(28)"{RVS} 
{12 SPACES}"; 
XB 1032 PRINTSPC( 28)" 
| [3 SPACES}POINTS 
(3 SPACES} OFF)"; 
CD 1035 PRINTSPC(28)"{RED} You | 
{BLU J EMIEGRI{ RED} COMP 
LSPACE}"; 
| SB 10498 PRINTSPC(28)"{BLU} 
ES Y3POES YA"; 
GR 1645 FPORI=] TO4:PRINTSPC( 28) 
"15 SPACES/|EMIEGI 
{5 SPACES}"; :NEXT 
KQ 1656 PRINTSPC(28)"£12 vq 
15 DOWN}"; 
AJ 1051 PRINTSPC(28)"£12 @}"; 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
COMPUTE!'s GAZETTE Programs,” 
elsewhere in this issue. 


6b 





Euchre 
Article on page 16. 


SK 18 GOSUB11@@8:GOSUB1@80:GOosU 
B2700:GOSUB1300:GOSUBLOB 
oa 

SG 25 GOSUB2000 

| MS 38 IFTP<>4THEN7@ 

QJ 35 POKEX,12:POKEY,3@:SYSPLT 
:PRINT"({BLK]JNO[2 SPACES } 
BIDS"; 

XQ 40 POKEX,13:POKEY, 28:SYSPLT 
:PRINT"HAND{2 SPACES}DUM 
PED"; 

XG 58 GOSUB1499:FORI=0T04:POKE 
X,19:POKEY,1I*5+2:SYSPLT: 
PRINTECS; :NEXT 

XP 51 DL=FNNP(DL): POKEX, 7: POKE 
Y,12:SYSPLT:PRINTECS; 

DH 55 GOSUB1980:GOTO25 

FR 78 POKEX,12:POKEY,398:SYSPLT 
:PRINT"{|BLK}]TRUMP: “CoS ( 
TP)SS(TP); 

JJ 75 POKEX,13:POKEY, 29:SYSPLT 
t PRINT"{ BLK] BIDDER: ";:1F 
BD=O@THENP RINT" YOU"; :GOTO 


90 —. : i 
11 } 82 88 CB 42 2A 83 BO | ) ym 
TEOSAE ae 30 2B 26 62 AB BC EF 88 eS P"RIGHTS(STR$(BD) | CP *29° eee tee 
11C1:18 28 88 88 O88 28 B63 BB ei di a feos 13 SPACES}{OFF}"; 
cera 38 fo 0 Su ia 3g a2 tp | ns 90 bubn-(aai"semtremmy | go oop thdnoeet f(a) 20 
Dt i aa! j 5 
11D9:00 00 G7 48 40 8) 90 00 AX 100 IFDL>@THEN125 Cee e AEE acon 


KM 115 POKEX,15:POKEY, 28:SYSPL 
T: PRINT" {BLK}PICK DISCA 
RD"; 

FD 121 GOSUB220@:POKEX,15:POKE 
Y, 28:SYSPLT: PRINT" {BLU} 
{12 SPACES}"; :GOTO13@ 

XM 125 GOSUB2306 

JK 136 C(DL,F)=KC:S(DL,F)=KS:G 


11E1:00 08 84 30 B88 BB BB BD 
11E9:80 68 86 62 80 OO OG BA 
11F1:88 60 2A OC 42 B88 B3 G2 
11F9:8B 88 C8 28 EO CA 28 B3 
1281:D8 A8 88 B82 OB 28 38 20 
1289:02 8C B88 46 CO 68 BB BO 
| 1211:18 61 83 88 B7 88 BB G7 
| 1219:008 68 G1 8B 18 38 68 BO 


KE 1865 PRINTSPC(28)"{BLU]} 
E5 YAPOE5 Y3"; 
HR 1878 FORI=1TO3:PRINTSPC( 28) 
"15 SPACES} EMIEGI 
{5 SPACES}"; :NEXT 
DM 1875 PRINTSPC(28)" 
{5 SPACES] EMJEGA 
14 SPACES}"; 


| 1221:00 G8 88 BB BB G2 8B aA OSUB1226 nia ee ten ae 
| 1229:82 26 88 BB 32 AD BO BA QJ 135 POKEX,7:POKEY,12:syspLT | B® 4988 Ey 3,32: ' 
1231:03 88 86 80 B88 82 BB B2 :PRINTECS; 


XS 1881 POKEX,7:POKEY, 3) :SYSPL 
T: GOSUB1L465;: POKEX, 7: PO 
KEY, 35:SYSPLT:GOSUB146 


MK 148 GOSUB250@ :GOSUB3I080:IF( 
PW(8)>9)OR(PW(1)>9) THEN 


1239:A8 88 20 O88 EO 3A BO OO 
1241:28 62 08 48 O82 O62 O88 20 


1249:80 88 OB BB 30 B 19 308 2 
1251:88 68 86 16 00 03 BO BI GS 158 POKEX, 21 :POKEY,31:SYSPL 7 
1259:08 40 30 G8 OO BB BB BB T:N=@:GOSUB1465 SB 1082 POKEX, 21 :POKEY,31:SYSP 


LT:GOSUB1465: POKEX, 21: 
POKEY, 35:SYSPLT:GOSUB1 
465 

QE 1090 RETURN 

SS 1180 DIM Cl.$(7),C2$(7),8$(3 
),bc(23),DS(23),C(3,4) 
,5(3,4),C0O$(3),CX(3),C 
Y(3) 


1261:08 08 BA OO BB BB BB aa 
| 1269:00 30 2A 68 BB AD BB AA 
| 1271:96 OA B88 20 B62 BB BB BA 
1279:08 AO 28 88 BB cc BB BA 
1281:28 @0 OB 20 OB O2 BB B2 
1289:00 60 22 88 BB BO BB CBO 
1291:00 @0 86 BB G1 BB 1B Be 
1299:00 @8 38 88 28 BB BO BA 


MP 151 POKEX,21:POKEY,35:SYSPL 
T:N=0:GOSUB1465 

AG 208 POKEX,7:POKEY,31:SYSPLT 
:N=PW(@8):GOSUB1465 

BS 205 POKEX,7:POKEY,35:SYSPLT | 
:N=PW(1):GOSUB1465 

CD 218 DL=FNNP(DL):GOSUB1355:G 


OTO25 
127A1:009 88 98 B2 BB BB Bc BB . erGl W(1)>=lLOTHENWT= | MS ii@1 DIM OB(6),0U(6),PU(6), 
12A9:08 2 A AG Go Go 90 ao 1a | MP 308 WreO:IFPW(t) MS (6,3),GA(6),MES(15), 
12B1:80 68 G8 B82 BO BO OS BO | } cee . rare px(3),PY(3),NMS$(9,2),N 
PE 3685 POKEX, 7:POKEY,29+WT*6:5 ' ’ 
| 1289:00 GA 88 BO BB 30 OG 20 EOE AT INGBERETAGE F(6) 


12C1:88 80 BO BB BO BO OB BD 
| 12C9:88 BO BO BB BG BB BB BD 
12D1:80 80 88 G2 G1 BB 12 BO 
12D9:88 G8 G8 OO 3F FF FC 5F 
12E1:FF FA 5F FF FA 6F FF F6 
12E9:6F FF F6 77 FF EE 77 FF 
12F1:EE 7B FF DE 7B F3 DE 7C 
12F9:088 3E 7B F3 DE 7B FF DE 
1301:77 FF EE 77 FF EE 6F FF | 
| 1309:F6 6F FF F6 SF FPF FA 5F 
| 1311:FF FA 3F FF FC 68 88 @O 
1319:FF 68 68 GB BB BB BB 2B 
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EQ 310 POKEX,7:POKEY,31+WT*6:S 
YSPLT:N=PW(WT)-108:GOSUB 
1465 

KM 315 FORDE=1TO2000:NEXT 

EM 320 GOSUB] 459: POKEX, 13: POKE 
Y,38:SYSPLT: PRINT" {RED} 
YOU"; 

DE 32) IFWT=@THENPRINT" WINI"; 

PQ 322 IFWT=l1THENPRINT" LOSE"; 

PJ 325 POKEX,15:POKEY,1):SYSPL 
T:PRINT" | RVS} | BLU} PLAY 


SS 1102 DIM CL(7,3) 

QS 1108 X=RND(-TI) 

| GQ 1169 FORI=98TO3:READS$(I),CO 
$(1I):NEXT 

EF 1116 DATA"Z","{REDJ","X"," 
{BLK]™, "ss ; 1 {RED}", ";A" 
- il {BLK} i 

PE 1111 FORI=08T06:READNF(I):NE 
XT:DATA4,@8,1,2,3,74:9 

JH 1115 FORI=@TO7:READC1$(I),C 
28(1):NEXT 








1120 


1125 
1130 


1135 


| 1148 


1145 


, 1158 
1155 


1168 
1161 
1165 
1176 
1171 


1172 


LI73 


1174 


1175 
| 1176 
1177 
1178 


i179 


1180 


1185 


1186 


1187 
1188 
‘1189 
1196 


41191 


| L192 


DATA"9 "," 9","10","10 
ts Lay ee J", "9 hha, O87 
ni Sete K", "A grees A" 

DATA"J eke a panrtad tf eA be ad 


FORI=2517T0254:READQ: PO 
KEI, Q:NEXT 

DATA24, 76,248,255 
PLT=251:X=781:Y=782:SX 
=53248:BLS=" 

{12 SPACES}" 

ECS="{4 SPACES} 1DOWN] 
i4 LEFT)":ECS="{RVS}"+ 
ECS+ECS$+ECS+ECS$+ECS$+" 
| OFF}" 
FORJ=0@TO3:FORI=0TO5 
pC(J*6+I )=I:DS(J*6+1)= 
% 


NEXTI :NEXTJ 

FORI=9T0O3: READPX(I),PY 
(I):NEXT: DATAL3,12,7,7 
el,12,7,17 


FORI=8TO3 :READCX(I),CY | 


(I) :sNEXT 
DATA17,11,10,4,3,11,10 
22l 


FORI=0T0O2:FORJ=0TO9:RE 


ADNMS$ (J, 1) :NEXT:NEXT 
DATA"{RVS} EFI", "\RVS] 
EKJ{OFF]EK3", "1 RVSJEITI 
", "{LRVSJEIR aiid gr Ka" 
,"URVS} EIA"; "LRVS} 
EI9","{RVSIEIF te 
{RVS} EFI", "(RVSJEDI "™ 
DATA" EK9", "LRVSJEKI 
{OFFJEK¥"," BIO", "RII 
{SPACE}","{RVS}E2 ca", 
METS Digi EFA", "1OFF} 
iRVS} tte EFI", "EC iW 
DATA" {RVSJEV3","{LRVS} 
EKJ{OFFJEKI"," OFF} 
KI9","{OFFJEIA(RVS} ", 
"{OFF} EK9","1LOFFIJEII 
{RVS} "," EV9","{OFF} 
{SPACE}({RVS} "," EVd", 
"{OFFJEIG(RVS} " 
DEF PNNP(X)=((X+1)/4-1 
NT ( (X+1)/4))*4 
FORI=9T05:READCP(1I):NE 
XT:DATAL,1,8,1,2,-1 
PORI=8TO13:READMES (I): 
NEXT 
DATA"PASS([4 SPACES}"," 
ORDER UP","PASS 
{3 SPACES}", "PICK UP", 
"12 SPACES/PASS 
{4 SPACES}" 
DATA"Z DIAMONDS","X CL 
UBS{3 SPACES}","S HEAR 
TS{2 SPACES}","A SPADE 
S{2 SPACES}", "NORMAL 
{4 SPACES}" 
DATA"AGGRESSIVE", "YES" 
, "NO " "YES" 
FORI=1TO3:READMX(I),MY 
(L):NEXT:DATA7,2,1,190, 
7,19 
FORI=9T0O6:READOB(I),OU 
(I),PU(I),MS(I,8),MS(I 


»1),MS(I,2),MS(I,3),GA | 


(I) :NEXT 
DATA99,99,99,99,99,99, 
99,99 
DATA99,99,99,99,99,99, 
99,99 
DATA99,99,14,14,14,13, 
13,99 
DATA28,12,08,98,08,88, 
67,19 
DATA14,00,00,90,00,09, 
608,16 

DATAGS ,60,00,08,008,90, 


| 1.228 


y 1276 


i 1360 


} 1365 





00,14 
DATAOO,60,00,00,80,080, 
69,88 
RETURN 
IF(S=TP)AND(C=6)THENS= 
S+2:S=(S/4-INT(S/4))*4 
PRINTCOS(S)cl1$(c)" 
{2 SPACES} | DOWN} 
{4 LEFT}"ss(s)" 
{3 SPACES} | DOWN} 
{4 LEFT}14 SPACES} 
{DOWN} 14 LEFT} 
{3 SPACES}"SSs(S)" 
{DOWN} {4 LEFT} 
{2 SPACES]}"C2S(C); 
PRINT" {BLU}"; 
RETURN 
FORU=0TO4 : POKEX, 19:POK 
EY, U*5+2:SYSPLT 
C=C(9,U):S=S(8,U) :GOSU 
B1200 :NEXTU 
RETURN 
FORI=68T023:J=INT(RND(1 
)*24) 
T=DC(I):DC(I)=pDc(J):bDc 
(J )=T 
160 T=DS(I):DS(I)=DS(J):DS( 
J)=T 
NEXT 
FORJ=8T03 :FORI=8T04 
C(J,1I)=pc(g*5+1):S(J,I 
)=DS(J*5+1):NEXT:NEXT: 
KC=DC( 28) :KS=DS( 20) 
RETURN 
GOSUB]45@ : POKEX, 12:POK 
EY, 28:SYSPLT 
PRINT" {BLK} FIRST 
{2 SPACES}BLACK"; 
POKEX,13:POKEY,29:SYSP 
LT 
PRINT"JACK DEALS"; 
GOSUB1250:DL=@:cC=g 
POKEX, CX(DL) : POKEY, Cy ( 
DL) :SYSPLT 
C=DC(CC):S=DS(CC):GosU 
B1200 
FORDE=1T0500:NEXT 
IF(DC(CC)=2)AND((Ds(cc 
) AND253 )=1 ) THENGOTO135 
5 5 
POKEX, CX(DL) : POKEY, CY ( 
DL) :SYSPLT 
FORDE=1T0108:NEXT 
PRINTECS; :CC=CC+1:DL=F 
NNP (DL) :GOT01325 


1193 


1199 
1290 


1285 


1297 
1210 


1225 


1236 
1250 


1255 


1265 


1275 


1280 
1360 


1365 
1316 


1315 
1326 
1325 


1338 


1331 
1335 


1336 


1337 
1346 


1355 
7 t=POKEX, 12:POKEY,29:SY 
SPLT 

IFDL=8THEN13790 

PRINT" PLAYER"DL; 
POKEX,13:POKEY,31:SYSP 
LT 

PRINT"DEALS"; :GOTO1375 
PRINT“ YOUR{2 SPACES] DE 
AL"; 

GOSUB1 490 
POKEX, CX( DL) : POKEY, CY ( 
DL) :SYSPLT:PRINTECS; 
RETURN 
POKEX,15:POKEY,28:SYSP 
LT 
GOSUB6000:PRINT"| BLK} 
{RVS} HIT BUTTON [OFF] 
"::POKE1L98,9@ 
GETWTS:IF (WTS <>CHRS(13 
) JAND (PEEK(56320)<>111 
)THEN14i9 

PRINT" {BLU}]"; :GOSUB145 
8 


1356 


1362 


1376 


L375 
1376 


1388 
1466 


1405 


1416 


1415 


1430 
1458 


RETURN 


KEY,28:SYSPLT 


GOSUB1450:PRINT"{BLK}" | 


FORR=12T0O16:POKEX,R: PO 


JB 


OR 


1455 


1468 
1465 


DQ 1476 


JH 
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1500 
1595 


1510 


1515 
1526 
1525 
1530 


1535 
1546 


1545 


1550 
1690 


1665 
1616 
1615 
1616 


1618 


1619 
1628 
1625 
1638 
1658 
1654 
1655 
1668 
1665 


1676 


xX 1675 


1686 
1685 
1699 
1709 


1705 
1716 
1758 


1755 
1889 


1801 
1865 
1818 


PRINT"{12 SPACES}"; :NE 
xT 

RETURN 

PRINT" {RED}";:FORI=98TO 
2:PRINTNMS (N, I)" {DOWN} 
{2 LEFT)": sNEXT: PRINT" 
{OFF} {BLU}"; 

RETURN 
FORI=9TO3:SP(P,1)=FC(P | 
AND253):NS(P,1I)=08:NEXT 
FORI=8T04:S=S(P,1):C=Cc 
(P,I):SP(P,S)=SP(P,S)+ 
CP(C):NS(P,S)=NS(P,S)+ 
1 
IFC=2THENS=S+2:S=(S/4- | 
INT(S/4))*4:SP(P,S)=SP 
(P,S)+6:NS(P,S)=NS(P,S 
y+] 
IFC=5 THENFORJ=0TO3:SP( 
P,J )=SP(P,J)+4:NEXTJ 
NEXTI 
SS=0:FORI=0TO4:IFNS(P, 
I )=@THENSP(P,1I)=08:SS=sS | 
S+1 

NEXT: FORI=6T0O3:SP(P,I) 
=SP(P,1)+SS:NEXT 
IFP<>DLTHEN155@ 
IFKC=5THENSP(P,KS )=SP( 
P,KS)+4 
SP(P,KS)=SP(P,KS)+CP(K 
C):NS(P,KS )=NS(P,KS)+1 
RETURN 
LO=6:HI=]1:XP=13:YP=16: 
GOSUB19198 

IF AN=l]THENTP=KS 
RETURN 
POKEX,13:POKEY,1@:SYSP 
LT:PRINT"{RVS}LONEHAND 
?1OFF}"; 
LO=)2:HI=]13:XP=13:YP=2 | 
@:GOSUB1916: LH=@ 
IFAN=1 3THENLH=1 : POKEX, 
MX(BD)+2:POKEY,MY(BD) : 
SYSPLT: PRINT" | RVS}LONE 
HAND{OFF}"; 
POKEX, 13: POKEY,1@:SYSP 
LT: PRINT" {RVS} 

19 SPACES] 1OFF]"; 
RETURN 
LH=6:IFSP(P,TP)>GA(NS( 
P,TP) ) THENLH=1 

RETURN 

IFFNNP( FNNP(P))=DLTHEN 
GOSUB1625:F=LH:GOTO168 
5 
F=0 ; IFKC=2THENGOTO1660 
IFSP(P,KS)>OU(NS(P,KS) 
) THENF=1 
IFSP(P,KS)>OB(NS(P,KS) 
) THENF=1 
IF(F=6)OR(P<>FNNP(DL) ) 
THENJ.685 | 
SB=CP(KC):IFKC=5THENSB | 
=3 
FORI=9TO3:IFI«<>KSTHENI 
FSP(P,1)>=(SP(P,KS)-SB 
) THENF=0 

NEXT 

IFF=1THENTP=KS 

RETURN | 
LO=2 :HI=3:XP=l13:YP=l1: 
GOSUBL9I4 

IF AN=3THENTP=KS 
RETURN 
IFSP(P,KS)>PU(NS(P,KS) 
)THENTP=KS 

RETURN 

LO=4 :HI=8:XP=13:YP=9:G 
OSUB1L91¢ 
IFAN-5=KSTHEN1 890 
IFAN>4THENTP=AN-5 
RETURN 
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1856 
) 1855 
1866 
1865 


1878 
1960 


1985 


1967 
1910 
L915 


1926 
192) 


1922 
1925 


| 19390 


1935 


fF 19498 


1.945 
1950 


LYS 


1969 


1965 
2000 


2005 
2067 
2019 
2615 


2016 


; 2617 


2026 
2025 


2636 


2035 
2046 


2045 


2056 


2055 


2068 


| 2065 


2076 
2071 


DF=8:FORI=08T0O3:IFI=KST 
HEN] 865 
IFSP(P,I)-MS(NS(P,I),P 
S)<DFTHEN1865 
DF=SP(P,I)-MS(NS(P,I), 
PS) :TP=I 

NEXT 

RETURN 
FORI=1TO3:FORJ=08TO2: PO 
KEX, MX(I)+7:POKEY,MY(I 
):SYSPLT: PRINT" {RVS} 
{8 SPACES}"; 

NEXT :NEXT: PRINT" {OFF}" 


RETURN 

POKE198,6:AN=LO 
X1=XP:Y1=YP:FORI=LOTOH 
I:PRINT"(|RVS}| BLU)"; 
IFI<>ANTHEN] 925 
IF(AN=LO)OR(HI-LO=1 )TH 
ENPRINT"|RED}";:GOTO19 
25 

PRINTCOS (I-LO-1); 
POKEX, X1:POKEY, Y1:SYSP 
LT: PRINTMES(1I);:Xl=X1+ 
1:NEXT 

GETRS : DR=PEEK (56320) :I 
FNOT((RS="|(UP}")OR( DR= 
126)) THENGOTO1 949 
AN=AN<-1: IFAN<LOTHENAN= 
HI 

IFNOT ((RS="{DOWN}")OR( 
DR=125) ) THENGOTO195@ 
AN=AN+1:IFAN>HITHENAN= 
LO 

IFNOT( (RS=CHRS (13) )OR( 
DR=111) )THENGOTO] 915 
XL=XP:YlL=YP:PRINT" 
[RVS} (BLUJ";:FORI=LOTO 
HI 
POKEX, Xl :POKEY, Y1:SYSP 
LT:PRINTLEFTS (BLS, LEN ( 
MES (LO)));:Xl=X1+1:NEX 
T 

PRINT" {OFF }";:RETURN 
GOSUB1250:GOSUB1L220:P= 
FNNP(DL):TP=4:BD=0: KU= 


a 

POKEX, 7:POKEY, 1.2:SYSPL 
T:C=KC:5=KS:GOSUB1298 
IFDL<>@THENPOKEX, MX (DL 
): POKEY, MY (DL)+):SYSPL 
T: PRINT" {RVS} DEALER" 
GOSUB1L56@ 

IF P=0 THENGOSUB1606:GOT 
02040 

IFABS (P-DL ) <> 2THEN 2020 
GOSUB1625;: IFLH=] THENTP 
=KS:GOTO2025 

GOSUB165¢ 
POKEX,MX(P):POKEY,MY(P 
):SYSPLT:PRINT"{RVS}"; 
IFTP=4THENPRINT"™ 

(2 SPACES}PASS":GOTO20 
49 

BD=P:PRINT"ORDER UP"; 
P=FNNP(P):IF(P<>DL)AND 
(TP=4 ) THEN 2016 
P=DL:GOSUB1 590: IFTP<>4 
THEN 2105 
IFDL=08THENGOSUB1790:GO 
TO2070 
GOSUB1 750: POKEX,MX(DL) 
: POKEY,MY(DL):SYSPLT:P 
RINT" (LRVS}(BLU}"; 
IFTP=4THENPRINT" TURNE 
DI DOWN}J15 LEFT] DOWN";: 
GOTO207¢ 

BD=P:PRINT" PICKED 
{DOWN} 14 LEFT]UP"; 
FORDE=1TO2000 :NEXT 
IF(BD=@)AND(TP<>4) THEN 
2105 
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2672 


2673 
2675 
2689 
2685 
2686 
2088 
2689 
2690 


2100 


. 21085 


2189 
2119 


21.1) 
2112 


2115 
2126 


2146 
2145 
2150 
2200 
2205 


2210 


2215 


2220 


2225 


2230 


2245 
2250 


2255 


2276 
2275 


2280 
2308 


23085 


2316 
2315 


2320 


2325 
23390 
2331 
2335 


2340 


POKEX, 7: POKEY, 12:SYSPL 
T:PRINTECS; : IFTP<>4THE 
N2105 

GOSUB1990:PS=0 
P=FNNP(P) 
IFP=@THENGOSUB18@0:GOT 
02690 

GOSUB1850: POKEX,MX(P): 
POKEY,MY(P):SYSPLT:PRI 
NT" (| RVS}"; 

FORDE=1 T0600 :NEXT 
IFTP=4THENPRINT" 

[2 SPACES]PASS"; :GOTO2 
B90 

BD=P:PRINTRIGHTS (MES(T 
P+5),8); 
IF(P<>DL)AND(TP=4)THEN 
PS=PS+1:GOTO2075 
GOTO2109 

KU=1: IF (BD=0 )AND(DL=2) 
THENLH=1 :GOTO2129 
IFTP=4THEN2148 

IF( LH=1 )AND(BD<>8) THEN 
2126 
IFBD=S8THENGOSUBJ61.5:GO 
TO2148 

GOSUB1625 

IFLH=@THEN 2140 

POKEX ,MX(BD)+2: POKEY,M 
Y(BD):SYSPLT: PRINT" 
{RVS}LONEHAND"; 

PRINT" {OFF}"; :FORDE=1T 
0O2000:NEXT 

GOSUB199@ 

RETURN 

POKE198,0:F=-1 

F=F+] :IFC(8,F)=-1THEN2 
205 

G=F: POKESX+1, 214:POKES 
X, (F*54+3 )*8+22: POKES32 
69,1] 
POKESX+1, 214: POKESX, (F 
*543)*8+22 

GETRS : DR=PEEK(56320):I 
F(RS="")AND( DR=127 ) THE 
N2220 

G=F; IFNOT((RS="{ LEFT? }" 
)OR(DR=1 23) )THEN2254 


F=NF(F):IFC(@,F)<@THEN | 


2238 


GOTO2215 
IFNOT((RS="{RIGHT}")OR 
(DR#=119) )THEN2275 
F=NF(F+2):IFC(9,F)<®8TH 
EN2255 

GOTO2215 

IFNOT ( (RS=CHRS (13) )OR( 
DR=111))THEN2215 
RETURN 
FORI=@TO4:IF(S(P,1)=TP 
JAND(C(P,1I)=2)THENC(P, 
I)=7:GOTO2310 
IF((S(P,1)AND253 )=(TPA 
ND253))AND(C(P,1I)=2)TH 
ENC(P,1)=6:S(P,1)=TP 
NEXT 
FORI=8TO4:FORJ=60TO3:IF 
S(P,J)>S(P,J+1)THENGOT 
02331. 

IFS(P,J)=S(P,J+1 )THENI 
FC(P,J)>C(P,J+1)THENGO 
T0233] 
T=C(P,J):C(P,J)=C(P,J+ 
1):c(P,7+1 )=T 
T=S(P,7)3S(P,J7)=S(P,J0+ 
1):S(P,J7+1 )=T 

NEXT 
FORI=8T04:PT(1I)=0:IFS( 
P, 1 )=TPTHENPT (I )=C(P,I 
)+10:GOTO2350 
IFC(P,1)=5THENPT(I)=9: 
GOTO2358 





2345 
2350 
2355 
2366 
2500 
2585 
2510 
2515 


2520 
2708 


2785 
2710 


2715 


2720 


3880 


388). 


(X 3002 


3685 


3610 
3611 


3615 


3520 


3621 
3625 


3830 


3635 


3840 
3045 
3850 


3655 


3568 
3665 


3671. 


3872 


3875 


IF(S(P,1)<>S(P,NF(I))) 
AND(S(P,1I)<>S(P,NF(I+2 
)) )THENPT (I )==-1 

NEXT 
L=99:FORI=0T04:IFPT(L) 
<LTHENF=I:L=PT(I) 
NEXT: RETURN 
FORI=0TO3:FORJ=68TO3:NS 
(I,J)=0:NEXT:FORJ=0T04 
:IFC(I,J)<>2THEN2515 
IFS(I,J7)=TPTHENC(I,J)= 
7:GOTO2515 
IFABS(S(1I,J)-TP)=2THEN 
C(I,J)=6:S(I,J)=TP 
NS(I,S(I,J))=NS(I,S(I, 
J))+1:NEXT:NEXT 

RETURN 

PRINT" {|HOME} 12 DOWN] 
{2 RIGHT} {RVS}PARTNER? 
{OFF }";:LO=9:HI=10:xXP= 
2:YP=12:GOSUB1 919 

FC (@)=6: IFAN=lLOTHENFC ( 
6 )=2 

PRINT" {HOME}12 DOWN] 
(2 RIGHT} {RVS}OPPONENT 
S7(OFF])";:LO=9:HI=10:X 
P=2: YP=14:GOSUB1 910 
FC(1)=@: [FAN=LOTHENEFC ( 
1 )=2 

PRINT" |HOME}|2 DOWN} 
{2 RIGHT} {RVS} 

{10 SPACES} |OFF}";:RET 
URN 
FORI=0TO7:FORJ=0T03:CL 
(I,J )=0:NEXT:NEXT:CL(2 
, TPAND253 )=1. 
FORI=9T03:SL(I)=@:NEXT 
LD=FNNP (DL) : DM=4:TR(@) 
=9:TR(1)=@8: IFLH=@THEN3 
815 
IFBD=2THENFORI=0TO4:PO 
KEX, 19: POKEY, 1*5+2:SYS 
PLT: PRINTECS; :NEXT 
DM=FNNP(FNNP(BD) ) 
IFLH=1THENIFLD=DMTHENL 
D=FNNP (LD) 
FORTK=0T04: P=LD: PS=0:T 
L=@ : IFDM=PTHENP=FNNP(P 


) 

GOSUB3500@:WP=P: IFLH=1T 
HENPS=PS+1 
SL(S(P,PC(P)))=1 
IFS(P,PC(P) )=TPTHENTL= 
1 
FORI=1T03:P=FNNP(P):IF 
P=DMTHEN3I@60 

PS=PS+1 :GOSUB3500:IFTL 
=9 THEN 30850 


IFS(P,PC(P))=TPTHENIFC 
(P,PC(P))>c(WP,PC(WP)) 
THENWP=P 

GOTO306a 
IFS(P,PC(P))=TPTHENWP= 
P:TL=1:GOTO3060 
IFS(P,PC(P))=S(WP,PC(W 
P) )THENIFC(P,PC(P))>c( 
WP, PC(WP) ) THENWP=P 
NEXT: FORDE=1T0400:NEXT 
POKESX+3, (PX(WP)+1)*8+ 
52: POKESX+2, (PY(WP)+1) 
*8+19:POKE53269, 2 
FORDE=1T03000:NEXT:LD= 
WP: WT=WPAND253:TR(WT)= 
TR(WT )+1 
POKEX, 21: POKEY, 31+4*WT 
:SYSPLT:N=TR(WT):GOSUB 
1465: POKE53269,20 
FORI=0T03: POKEX, PX(I): 
POKEY, PY(I):SYSPLT: PRI 
NTECS::C(I,PC(1L))=-1:N 
EXT:NEAT 


3878 POKEX,MX(BD)+2: POKEY,M 








FP 


3689 
30885 
3086 


3887 
3890 


3095 
3897 
31080 


3195 


3168 
31106 


3115 


3119 
3280 


3285 
35008 
3581 


3582 


3563 


3504 
3585 
3587 
3588 
3589 
3516 


3512 
3515 


3530 


3535 


3548 


4906 


4005 


4019 
4015 


4020 
4625 
4030 


4635 


Y(BD):SYSPLT: PRINT" 
LRVS} 19 SPACES] LOFF}"; 

BT=BDAND253:POKEX,15:P 

OKEY, 28:SYSPLT 

PRINT" {BLK}";:IFTR(BT) 
<3THEN 31908 

IFTR(BT) <5THEN3097 

PW(BT )=PW( BT )+2+LH*2 
IFBT=0THENPRINT" 

{2 SPACES) YOU 

{2 SPACES]}WON {DOWN} 

{9 LEFTJALL TRICKS"; =: 

OTO3200 

IFBT=l] THENPRINT" COMPUT 
ER WON{DOWN}|11 LEFTJA 
LL TRICKS"; :GOTO3208 
PW( BT )=PW( BT) +1 
IFTR(O)> 2THENPRINT "YOU 
WON HAND"; :GOTO3208 
IFTR(1)>2THENPRINT" 

{2 SPACES}COMPUTER 


{DOWN} 18 LEFT}WON HAND | 


"> :GOTO3200 
PW(1-BT)=PW(1-BT)+2 
IFTR(@) <3THENPRINT" YOU 
"'VE|2 SPACES} BEEN 
{DOWN} {18 LEFT} EUCHRED 
1":GOTO3200 
IFTR(1)<3THENPRINT" 

{2 SPACES }COMPUTER 
{DOWN} {8 LEFT] EUCHRED! 
Hes 

FPORDE=1T04000 :NEXT 
FORDE=1T0O4000:NEXT:PRI 
NT" {BLU]"; 

RETURN 

IFP>@THEN3569 
POKEX, 15: POKEY, 28:SYSP 
LT ‘ 
PRINT" {BLK} {RVS} YOUR 
{2 SPACES]PLAY |OFF] 
{BLU}"; :GOSUB2299 
LS=S(LD,PC(LD)):IF(Ps= 
8)OR(S(P,F)=LS)OR(NS(P 
, LS )=@ )THEN3507 
GOSUB2215:GOT03563 
POKE53269,@0: POKEX,19:P 
OKEY,F*5+2:SYSPLT: PRIN 
TECS;:GOTO3530 

POKEX, 15:POKEY, 28:SYSP 
LT:PRINT"{12 SPACES}" 
POKE53269,0:POKEX,19:P 
OKEY, F*5+2:SYSPLT:PRIN 
TECS; :GOTO35390 
IPTK<5THEN3515 
FORK=9TO4:IFC(P,J)>-LT 
HENF=I 

NEXT :GOTO35390 

ON (PS+1 )GOSUB49060, 4109 
, 4200, 4208 
PC(P)=F: POKEX, PX(P):PO 
KEY, PY(P):SYSPLT:C=C(P 
»F):S=S(P,F):GOSUB1299 
NS(P,S(P,F))=NS(P,S(P, 
ROA RACUC(E (ENA E CEs) 
RETURN 
IFNOT(NS(P,TP)=5-TK)TH 
EN4615 
SP=TP:GOSUB5200:IFF=1T 
HENGOTO5150 

GOTO5168 

IFNOT ((LH=1)AND(BD=P) ) 
THENGOTO4830 
IFNS(P,TP)>@THENSP=TP;: 
GOTO515¢ 

GOTO505a 
GOSUB500@:IF(F=1 )AND(A 
BS(BD-P )=2)THENSP=TP:G 
OTO515¢ 


GOSUB525@0:IFNOT((F=L)A 


ND (P=BD) )THENGOTO5@5@a 





4040 
4045 


4650 
41.00 


RJ 4105 


4110 
4115 


4126 
4125 


4130 
4135 


4140 
4200 


4261 
4205 


4210 
4215 


4220 
4225 


4230 
4235 


4245 


4250 
4255 


. 4260 


4276 


. 4275 


4280 
4285 
4296 
4380 


4305 
4310 


4315 


4320 
5008 


5905 
5850 


9855 


oS 5068 


5665 
5670 
5108 
9105 


| 5118 


5115 
51208 
5125 
9126 
5130 


| 5131 


GOSUB5200:IFF=)THENSP= 
TP:GOTO5159 
IFNS(P,TP)>2THENSP=TP;: 
GOTO5169 

GOTO5856 

IFNS(P,S(LD, PC(LD)))=0 
THEN4115 
GOSUB5308:SP=<S(LD, PC(L 
D)):IFF=1THEN5150 
GOTO516¢8 

IFNS (P, TP)=5-TKTHENSP= 
TP:GOTO5169 

IFNS (P,TP)=8THEN5100 
IFC(LD,PC(LD) )=5THENSP 
=TP:GOTO5166 

IFBD<> PTHENSP=TP:GOTOS5 
160 

GOSUB5256: IFF=1THENSP= 
TP:GOTO5169 

GOoTO519a 
IFNS(P,S(LD,PC(LD)))=@ 
THEN4235 
SP=S(LD,PC(LD)) 
IF(SP<>TP)AND(TL=1 ) THE 
N5160 

IFABS (WP-P) <> 2THEN4225 
GOSUB5306: IFF=l1THENGOS 
UB5350: IFF=0THEN51 56 
GOTO516¢ 

GOSUB5300: IFF=1THEN515 
6G 

GOTO5169 

IFNS (P, TP) <5-TKTHEN427 
0 


SP=TP: IFABS (WP-P)=2THE 
N5160 

IFTL=0@THEN51689 
GOSUB530@: IFF=]1THENGOT 
05498 

GOTO5169 

IFNS (P,TP)=8THENGOTOS51L 
Oo 

IFABS (WP=-P) <> 2THEN4310 
IF (TL=1 )OR(PS=3 )THENS1 
Oe 
IFC(WP,PC(WP))=5THENS51 
Oo 
IFC(WP,PC(WP))<4THENSP 
=TP;GOTO51608 
GOSUB52508:IFF=LTHENSP= 
TP:GOTO5169 

GOTO515008 
IFTL=@8THENSP=TP:GOTO51 
68 
GOSUB5390:IFF=1THENSP= 
TP: GOTO5400 

GOTO51 08 
F=0:FORA=0T04:IFC(P,A) 
>5THENF=1 

NEXT: RETURN 


F=-] :FORA=6TO4:IF(SL(S 


(P,A))=6)AND(S(P,A)<>T 
P)THENIFC(P,A)=5THENF= 
A 


NEXT: IPFF>-1THEN5970 
LC=-]1 :FORA=0TO4:IFS(P, 


A)<>TPTHENIFC(P,A)>LCT | 


HENLC=C(P,A):F=A 

NEXT 

RETURN 
IFNS(P,TP)>@THEN5125 
SP=-].:PFORA=0T04 
IFS(P,A)<>TPTHENIF(C(P 
»A)=5)AND(NS(P,S(P,A)) 
>1)THENSP=S(P,A) 

NEXT: IFSP>-l1THEN5169 
GOTO51 8b 

V=4 :F=-] :FORA=0ToO4 
IFS(P,A)=TPTHEN5135 
IF(NS(P,S(P,A))<>1)OR( 
SL(S(P,A))=1)THEN5135 
IF(C(P,A)>=@)AND(C(P,A 





5135 
5146 
5156 
9151 


5155 
5168 
5161 


5165 
5189 


5185 
5206 
9205 


59218 
5215 


52260 


5248 
5258 


5255 
53086 


93085 
5358 


a be Ee 
5489 
5405 


5416 
6008 


6010 


6828 
6630 


190808 


19918 


16858 
19851 
19652 
19053 
16054 
10055 


10656 
19857 


16860 


18861 


COMPUTE 


)<V)THENV=C(P,A):F=A 
NEXT: IFF=-1THEN518¢ 
RETURN 

IFPS=3THEN5499 
V=-1:FORA=0T0O4:IFS(P,A 
)=S PTHENIFC(P,A)>VTHEN 
V=C(P,A):F=A 

NEXT: RETURN 
V=10:FORA=0TO4 
IFS(P,A)=SPTHENIF(C(P, 
A)>=0 )AND(C(P,A)<V)THE 
NV=C(P,A):F=A 

NEXT: RETURN 
V=10:FORA=0T04:IFS(P,A 
)<>TPTHENIFC(P,A)>-1TH 
ENIFC(P,A) <VTHENV=C(P, 
A):F=A 

NEXT: RETURN 

HT=8:F=@ 
HT=HT=1 : IFHT>@THENIFCL 
(HT, TP)=),.THEN5S205 
IFHT<OTHEN5 248 
FORA=09T04:IFS(P,A)=TPT 
HENIFC(P,A)=HTTHENF=1 
NEXT 

RETURN 
F=1;FORA=@T04:IFC(P,A) 
>-LTHENIF(S(P,A)<?TP)A 
ND(C(P,A)<5)THENF=0 
NEXT: RETURN 
F=0:FORA=0T04:IFS(P,A) 
=S(WP, PC(WP) )THENIFC(P 
,A)>C(WP, PC (WP) ) THENF= 
1 


NEXT: RETURN 
F=9;:FORA=0T04: IFS(P,A) 
=S (WP, PC(WP) )THENIFC(P 
,A)-C(WP, PC(WP) )=lTHEN 
F=] 

NEXT: RETURN 
D=18:FPORA=0T04 
IFS(P,A)=S(WP,PC(WP))T 
HENE=C(P,A)=-C(WP, PC(WP 
))sIF(E<D)AND(E>@) THEN 
D=E:F=A 

NEXT: RETURN 


FORR=54272T054296:POKE | 


R, @: NEXT: POKE54275, 1 
POKE54277,21:POKE54278 
7135: POKE54273,158: POK 
E54276,17 
FORR=15TOOSTEP=.2: POKE 
54296, R: NEXT 
POKE54276,16: POKE54296 
, 8: RETURN 
POKE53285,13: POKE5328 
7,11:POKE53288,5:POKE 
53276, 2: POKE2@40,13:P 
OKE204],,14 
SA=832:FORJ=09TO1:SA=S 
A+J*64:FORI=0T063:REA 
DA: POKESA+I1,A:NEXT:NE 
XT: RETURN 


DATA 8,96,0,6,108,9,6 
, 108 

DATA 8,6,109,128, 3,10 
9,128,3 | 
DATA 253,128, 27,255,@ | 
,13,255,8 

DATA 15,255,0,7,254,@ 
» 3,254 

DATA ,1,252,0,0,252, 
B,o 
DATA 
g 
DATA 
DATA 
8 
DATA 16,170,168,19,14 
9,168,10,85 

DATA 104,9,89,88,9,10 
6,152,9 


292,0,0,0,0,8,9, 


, 0,08, uO, 0,0,6,8 
0,0,0,0,6,8,8,19 
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SG 106062 
BB 18963 
KH 10064 
RX 10065 
DF 10866 


FX 16067 





8,9,89 


,168,18,170 


BEFORE TYPING... 


Before typing in programs, please 
refer to “How to Type In 


COMPUTE!’s GAZETTE Programs,” 


| elsewhere in this issue. 


Sprite Designer 


See instructions in article on page 


35 before typing in. 


84D6:4cC 
B4D8: 90 
B4E0:85 
S4E6: 36 
B4F0:E8 


| 84F8:68 


B8500:E4 
8508:18 
B8510:E6 
8518:13 
8520:60 
| 8528: 8B 
8530:9B 
8538:28 
8546:8E 
8548:FF 
8550:20 
8558:8D 
8560: 9F 
8568: De 
8578:85 
8578:23 
8588: 21 
8588:F7 
8590: 8D 
B8598:A9 
85A0:6B 
B5A8:A9 
B85B8:22 
 85B8:8D 
B5CO:A9 


85C8:43 — 


85D8:CL 
85D8:A9 
85E@:77 
B5E8: 26 
B5F@: 28 
85F8:A9 
8608: 42 
8608:86 
8619:A9 
8618:6B 
8620:A5 
8628: 71 
8630:6B 
8638:06 
8640:CA 
B648:A9 
8658:A9 
8658:85 
86608:8D 
~6$8668:06 
8676:53 
8678:44 
8688:08 


35 
F9 
AY 
BA 
BD 
20 
FF 
6D 
FC 
85 
20 


85 
c9 
63 
AA 
23 
FO 
FO 
05 
60 
85 
OM 
97 
95 
A9 
D2 
86 
8D 
oF 
61, 
15 
aT) 
26 
20 
FS 
OF 
8D 
4c 
BD 
70 
O4 
BD 
01 
CA 
8D 
AS 


| 87 


86 
8D 
A2 
18 


20 
39 
20 
BD 
85 
85 
FB 
B5 
a0) 
FD 
G7 
BF 
88 
Cl 
FF 
82 
FD 
AD 
BD 
8D 
85 
90 
68 
AQ 
AY 
21 
E3 
5B 
8D 
AQ 
Co 
04 
10 
508 
22 
A5 
A9 
62 
16 
FA 
58 
FF 
72 
07 
06 
A9 
A9 
15 
86 
FF 
AS 
16 
49 
49 
20 


95 
Ba 
6B 
23 
85 
4C 
60 
85 
A5 


4E 


6B 
2) 
AS 
A9 
FB 
22 
53 
45 
49 
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DATA 153,88,9,153, 88, 
9,153,868 
DATA 9,153,88,9,186,8 


DATA 152,9,89,152,9,8 
9,152,9 
DATA 89,152,9,1708, 88, 
9,689,868 
DATA 10,85,104,16,149 


DATA 168,86,8,0,9,09,8, 
V4) 





92 


| OF 


4D 
Fo 
99 
5B 
A5 





8688:49 
6690: 1D 
8698:@8D 
86A0:49 


 B6A8: 34 
| 8686: 1D 


B86B8: 44 
86C8;:41 
86C8:43 
8600: 4F 
B6D8: 45 
86E8:55 
B6ES8: 52 
B6FO0: 28 
86F8:1D 


8700:008 | 


8708:11 
8710:9D 
8718:11 
8720: 9D 
8728:11 
8730:9D 
8738:11 
8748:9D 
8746: 3A 
875@:9D 
8758:11 
8768: 9D 
8768:4cC 
8770:B9 
8778:68 
8780:68 
8788: 86 
8798:87 
8798: 91 
87A0:93 
B7A8: 96 
B7BO: 94 
87B88:97 
B87CO: 9E 


| 8/CB: 92 


87D8:87 
87D8:95 
B87E@:96 
B87E8: 88 
B7FO0: 8A 
H/VFB: 9B 
B8808:A5 
8808: 8D 
881@:9D 


8818: DB 


8826:50 


| HG28: 2c | 


88308: 8D 
8838:DA 
8840: DA 
88468: 9A 
8858:8D 
8858: DA 
8860: DB 
8868:DB 
8876:DB 


| 8878: 0808 


8880:A0 
8888:14 
8898:12 
8898:88 
BBEAB:A2 
BS8A8: De 
B88BG: 98 
88B8:49 
B88C@: 54 
B8c8: 4F 
B88D8: 52 
88bD8:0D 
HBEO@:46 
S8E8: 4F 
S8FO0:20 
S88P8:9D 
8900:46 
8908: 0D 
8910:1D 
8918:43 
8920:20 
8928: 20 





8930:9D 
8938:9D 
8940: 9E 
8948:1C 


| 8958:20 


8958:1D 
8960: 41 
8968:43 
8970:9E 
8978:20 
8980:54 
8988;:43 
8999:45 
8998: 44 
89A0:1C 
89A8: 52 
89868:53 
BIBAB: 20 
89C0:208 
89C8:1C 
B89DO;:54 
89D8: 4F 
89E8:20 
B89ES8: 2E 
89F0:56 
89F8: 0D 
BAGB:85 
BAG8:59 
B8A10:05 
8A18:45 
BA20:46 
BA28:53 
8A30:9E 


| 8A38:9E 


8A48:1C 
8A48: 28 
BA50:1D 
BA58: 208 
8A60:27 
8AG8: 1D 
8A78:20 
8A78:9E 
BA8@8:1C 
8A88: 9D 
BA9B:52 
8A98:9D 
BAAG: 9D 
BAAS: 20 
BAB: 11 
SABS: 9D 
BACH: 20 
SAC8: 2E 
BAD@:CB 
SADS8: 8D 
BAE@: 8D 
BAES: 86 
BAFO@:A2 


BAF S: 9D 


SBOO:F 1) 
8B68: 8D 
8B1O:42 
SB18:A9 
8828: 6B 
8B28: 00 
8B30:00 
BB38: 32 
8846:11 
8B48: 8B 
BBSO:A) 
8B58:8B 
8868:8C 
8B68:8B 
8B7@8:8C 
8B78:8C 
8B80:8c 
8B88:8D 
86890: 6A 
8B98:4D 


 BBA®:A0 


8BA8:087 
SBBO: BA 
SBBS:E8 
BBCB: 80 
BBCS8: BB 
B8BDO:A9 


49 


20 


9D 
9D 


24) 


43 
29 
56 
44 
20 
45 
ic 
1D 
44 
20 
9E 
54 
50 
54 
20 
9E 
5A 
1D 
4P 
4] 
49 
43 
46 
43 
46 
52 
1D 
c3 


53 


OD 
C3 
54 
29 
a5 
49 
1D 
4c 
1c 
85 
54 
9D 
11 
9D 
O5 
=} 


9D 


49 
39 
AY 
8D 
8D 
86 
O7 
9D 
06 
86 
A® 
20 
A9 
6B 
FO 
8B 
96 
87 
B3 
EB 
LE 
Cl 
3B 
9B 
AE 
2B 
38 
1A 
8D 
36 
4c 
3B 
FE 
03 
20 
AQ 


20 


20 


SB 
FD 
FD 
OA 
05 
85 








8BDS8:B5 


BBEO:49 


SBE8: 4c 
8BF@:4C 
BBFS:c9 
8C08:D8 
8C08:85 
8C10:20 
8C1.8:8B 
BC20:30 


8C28:8C | 


| 8C36: 8D 


8C38:B0 OE 


8Cc4@:51 
8C48: 9] 
8C50: 7A 
8C58:4c 
BC60: 98 
8C68: 90 
BC7@0:82 
8C78: 82 
BCBO: 20 
BCS8B: BE 
8098:04 


8C98:4C 


SCAG: 4C 
BCAB: 20 
BCB@: 98 
SCBE:FB 
BCC@: 9A 
| 8CC8: 20 
8cCDO: 91 
8CD8: 88 
BCE9:C8 
BCE8:88 


| 8CFO:4c | 
| BCFB:Bl . 


BDO: GA 
8DO8:FB 
8D1.0:6A 


8D18:CA | 


8D20: 908 
8D2B8:A2 
BD36:AG 
8D38:18 
8Db4¢a:88 
8D48: 3F 
8D5@8:22 
BD58:8C 
| 8D6G:3E 

BD6E:FS 
8D708:88 
B8D78:A2 
8D88:88 
S8D88: 6B 
8D98:3E 
8D98:FB 
B8DAG:CB 
BDAG: 91 
SDB8:66 
8DB8:FB 
BDCH:AG 
BDC&: 08 
BDDB:18 
SDD8:FB 
BDEO:23 
8DE8:c8 
BDF@:03 
BDFS: 28 
BEOO: 91 
SE@S:8C 
SE16:Bl 


BE18:FB 


8E20:9D 
SE28:88 
8E30: 91 
BE38: 20 
BE48:FB 


| BE48:48 


BE5d:20 
8E58: 8F 
8E60:3C 
SE68:A5 
BE7O:A2 
8E78:10 





SE 86: 63 
HESS: 16 
B8E90:85 
BE9B8: DB 
BSEAO:CA 


| BEAB: BE 
| BEBO:61 


BEBS: 68 


BECO:C9 


BECS: 20 
BEDO@: 93 
BEDBA:F9 
SEEO: OF 
SEEB:A5 
BEFO: 9A 
BEFS8:1D 
BFO@O: 8D 
BFO8:Cc9 
BF10:20 
8FP18:85 
BF260: 208 
BP26:FA 
8F38:07 
SF 38:8E 
BF40:36 
SP48: 26 


BF50: 9F 


BF 58: 8F 
BFGO:CA 
HPG6A: OA 


8F7B:AD 1c 


8F78:4c 
8F88:D8 


| BPSB:A6 


BF90: OF 
BF9IB:A9 


BPAG:17— 


HFAG: 20 
BFBO: 98 
BPBS:92 


BFCO:79 


BFC8; 28 
BFDY:A9 
BFDS8:85 
BFE@:85 
BFEB:A9 
BFFO:FD 
BPFB:A9 
9000:16 
9008:4C 


 9810:85 


9018:86 
9920:AD 
9928:28 


9030:FO | 
9038: 20 


9040:44 
9048:FO 
9058:A8 
9058:A5 
9060:85 
9068:63 
9070:F7 
9078:A9 
9080:FS8 


9UBB:A9 1 


9090:F8 
90998:1¢c 
9O0AB:A5 
90A8:85 
90BG:14 
90B8:91 
90CO:FA 
99C8:86 
90DB8:FC 
90D8:05 
9OEO: 0A 
90E8:4c 
90F0:8D 
9O0F8:85 
9100:07 
9168:2A 
9110:2A 
9118:A5 
9120:25 





9128:85 
9139:05 
9138:FB 
9149:65 
9148: 68 
9158:75 
9158:B0 
9168:28 
9168:D0 
9170:49 
9178:49 
9189:60 
9188: 2E 
9198: 26 
9198:FC 
91A8:Do8 
91A8:4C 
91BO:D4 
91B8:c9 
91C8: 9B 
91C8: 8F 
91D8:28 
91D8:FB 
91E9:085 
91E8:11 
91F0:C2 
91F8:12 
9200:9D 
9288:9D 
9218:92 
9218:C3 
9228:11 
9228: 20 
9230:20 
9238: 20 
9240:C2 
9248:9D 
9258:BD 
9258:A9 
9260:6B 
9268:07 


| 9278:60 
| 9278:9F 


92860:AD 
9288: 9F 
92968: 21 
9298: 82 
9240:85 
92A8:02 
92B08: DA 
92B8:A8 
92CH:FB 
92CB8:F3 
92D8:28 
92D8:FB 
92E8:79 
92E8:FC 
92F0:24 
92F8;25 
93990:85 
9388: 25 
9319: 62 
9318:85 
9320:E2 
9328:12 
9330:05 
9338: 20 
9340:24 
9348: 02 
9358:4c 
9358:,91 
9360:51 
9368:1C 
9370:Do 
9378:46 
9388:28 
9388:De 
9399:BD 
9398:10 
93A0: 91 
93A8:22 
9389: 85 
93B8:A0 
93CO:AD 
93C8:00 


2A 
B5 
85 
4A 
A5 
93 
BA 
6E 
03 
FF 
FF 
43 
2E 
OB 
85 
B9 
9B 
SE 
87 
91. 


4c ' 


OB 
88 
4c 
9D 
ll 
268 
C2 
9D 
C2 
C3 
9D 
1}, 
208 
20 
26 
C2 
68 
6) 
87 
A9 
20 
9D 
25 
8D 
De 
90 
B2 
85 
85 
a ]) 
20 
AD 
FB 
85 
85 
AY 
85 
A9 
A2 
26 
B86 
20 


E6 


A9 
85 
14 
DO 
ye) 
56 
FD 


91 
DB 
8D 
23 
60 
86 
24 
F6 
FB 
AQ 
26 
9) 
24 
4c 


Ol 
A9 


A5 
Ag 
A6 
BE 
22 
68 
51 
BS 
68 
22 
FB 
20 
29 
85 
B4 
208 
DO 
4c 
O4 
O06 
85 
Bl, 
Bl 
C3 
CZ 
9D 
9D 
32 
3J 
9D 
20 
C2 
9D 
9D 
9D 
9D 
a) 4) 
DB 
AQ 
29 
20 
03 
CA 
DB 
24 
BO 
8D 
6B 
85 
BD 
24 
EO 
22 
8B 
85 
AQ 
AQ 


Bl « 


85 
85 
26 
93 


» B2 


C5 
AQ 
20 
AY 
90 
BD 
OF 
AG 


FB 
FA 
46 
4c 
FB 
OF 
FO 
18 
91 
85 
14 
91 
DG 
0), 
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93D0:4E | 


93D8: 45 
93EQ0:3F 
93E8: 20 
93F0:4C 
93FS8: 84 
9400: 2F 
9408:13 
9416: DF 
94186:8A 


9420:AD 


9428: 9PF 
9430:FF 
9438: 8D 
9440:59 
94468: DOB 
9450:FB 
9458:05 
9460:9) 
9468: 20 
94708:A2 
9478:A2 
948@0:A2 
948B8:A9 
9499:10 
9498:A9 
94A0:A9 
94A8: 20 
9486:05 
94B6:12 
9400: 20 


94CB: 20 


94D0: 20 
94DB: 20 
94E0: 90 
94E8: 20 
94P0:20 
94668: 20 
9500:20 
9508:4E 


| 9510: 92 


9518: 28 
95208: 208 
9528: 20 
9530: 20 
9538:05 
9540:12 
9546:1D 
9550: 208 
9558: 48 


| 9568: 92 


9568:97 
9570: 20 
9578: 20 


9586:50 | 


9588:C3 
9590:36 
9598; 9D 
95A0:20 
95A8:59 


95B0:54 ° 


| 95B8:9F 
95C0:4F 
95C8: 61 
95D0:6B 
95D8: 64 
95E0:868 
95E8:03 
95P0: 51] 
| 95FP8:97 
| 96098:99 
9668: BB 
96160:95 
9618:45 
9620:11 
9628: 33 
9630:20 
9638: 9D 
9640:20 
9648:00 
9656: 41 
9658: 20 
9660:55 
9668: 9F 
9670:4F 


5A 
2g 
87 
94 
F9 
39 
AY 
FO 
8D 
O2 
FC 
D2 
47 
cy 
4E 
85 
BN 
re 
85 
a) 
PA 
FA 
PA 
CA 
FA 
BE 
4) 
92 
9C 
20 
20 
20 
20 
20 
OS 
12 
20 
20 
20 
20 
20 
20 
26 
4B 
92 
9A 


20 
20 
26 
20 
O5 
LZ 
53 
C3 
35 
9D 
20 
54 
45 
20 
34 
20 
26 
20 
D9 
cy 
cy 
°6 


» 22 


AY 
C7 
49 
38 
9D 
9D 
AI 
20 
92 
20 
52 
54 


1D. 


54 
oF 
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6E 
ES 





| 9678: 44 


9688:43 
9688: 20 
9690:A9 
9698:6B8 
S6A0:A2 


| 96A8:88 


96B0: 96 
96B8:49 
96C8: 86 
96C8:8D 
96D0:A9 
96D8:FF 
96E0:84 
96E8:683 
96F0:C9 
96F8: 96 
9700:20 
9708:A0 
9716:96 
9718:49 
9726:8D 
9728:97 
9730: 9F 
9738:AD 
9740:108 
9748: 9F 
9758:69 
9758:A5 
9760:608 
9768: 4¢ 
9770:0A 
9778:30 
9788:1C 
9788:86 
9790:3E 
9798:Ds 
97AG0: 02 
97A8:52 
97B0:36 
97B8: 46 


| 97¢08:20 


97C8:35 
97D0:48 
97D8:0C 
S97EO: 00 
S7EB:Ea 
97FO:A9 
S97F8: 20 
9880:D0 
9808:A9 
9816: 86 
9818:4D 


| 9820:FF 


9828:Dd 
9830:84 
9838: 20 
9846:98 
9848:85 
9856:45 
9858:54 
9860:44 


| 9868:44 


9870:A0 
9878: 20 
9880:48 
9988:FF 
9890: EF 
9898:14 
9BAG: 9D 
98A8:B8D 
98BO:F7 
98B8: 9F 
98C0: 7F 
98C8:10 
98D8: 80 
98D8:68 
98E@: 20 
98E8:A5 
98F6:85 
9S8FS8:A0 
9998:68 
99098:Be 
9916:28 
991 8: EF 


Ag 


AQ 


20 


F9 


85 
D6 
03 
8D 


29 
45 
O7 
87 


97 


oF 
A2 
20 
Fl 
96 
18 
20 
DO 
23 
cy 
38 
96 
@). 
97 
EE 
DO 
C2 
24 
F6 
7c 
A6 
AD 
20 
18 
6B 
OM 
EQ 
BA 
4c 
26 
LE 
68 
49 
20 


OD 1 


43 
54 
20 
A5 
20 
C9 
EO 
AY 
6B 
FO 
85 
F9 
85 
FO 
85 
A5 
Bl 
66 
84 
45 
20 
208 
ao 
FF 
28 
AQ 
68 
20 


| fF 


16 
28 
co@ 
4C 
9D 
BD 
Fi 
40 
FF 
2c 
85 
99 
9B 
84 
20 
608 


85 


1.0 





99260:6B 
9928: 06 
9930:27 
9938:AD 
9946:21 
9948:A8 
9956:23 


9958:0E | 


9960:87 
9968:C9 
9978:02 


9978:Da 


9986: 61. 
S9S8S8:AA 


| 9999:20 


9998: 44 
99AQ:17 
99A8: 02 
99BB:A9 


| 9988: 96 


99C0:FF 
99C8: 22 
99D68:22 
99D8:6E 
99EB:A9 
99E8:6B 


| 99F8:20 
| 99FB: 20 
| 9AGG:54 


9AG8: 52 
9A106:53 
9A18: 80 
9A20:20 


| 9A28:54 


9A36:52 
9A38:53 
9A46:00 
9448: 20 
9A50:37 
9A58: 32 
9A68:35 
9A68: 2C 
9A78:99 
9A78:9A 
9A80: 9A 
9488: 50 
9A90:4F 
9A98:05 
SAA: 26 
SAAB: 20 
SABO: 9E 
9ABS:4F 
9ACE: 52 
SAC8: 34 
9ADO: 20 
9SADS: OD 
9AEO: 20 
9AE8:4C 
9AFO: 20 
SAF S8: 20 
9BOG: 31. 
988: 4c 
9B16:4E 
9B18: 26 
9B20: 31. 
98628: 20 
9830: 41 
9B38:4E 


| 9B46: 20 


9B48:6A 
59B50:00 
9B58: 51 
9B60:208 
9B68:A8 
9B7O:F9 
9B/78:9B 


9B888:C9 | 


9888: 80 
95B98: 80 
9898: 85 
9BAG:66 
9BAS: B6 
9BBO:A6 


| 9BB8:19 


9BC8:69 


608 
26 
04) 
cg 
F9 
BD 
IE 
87 
88 
83 
FF 
12 
99 
60 
54 
cg 
a7 
FO 
B4 
a) 6) 
FO 
23 
99 
87 
7B 
14 
32 
20 
39 
45 
49 
38 
29 
34 
45 
49 
98 
20 


34 


2c 
4F 
32 
85 
2D 
55 
9F 
45 
20 
20 
36 
52 
oF 
2C 
20 
20 
oF 
4F 
5 
20 
31 
1D 
54 
4c 
31 
20 
35 
53 
JF 
AQ 
AQ 
85 
86 
85 


EL 


@D 
De 
D8 
86 
86 
69 
6B 
ca 
69 
4B 
cs 


368 


9B 
6A 


A2 
04 
OF 
DO 
BA 
AY 
18 
1h 
54 
36 
82 
6B 
08 
4E 
52 
DO 
FF 
AY 
AY 
22 
85 
FF 
AB | 
FF 
79 
64 | 
45 

58 
20 
31 


45 26 


49 
5 
20 
35 
45 
49 
33 
20 
33 
4F 
36 
OF 
37 
9E 
9E 
45 
38 : 
20 
OD 
45 
45 
29 
<x 
20 
54 
42 

20 
20 
20 
oF 
20 
20 
20 
3}, 
32 
28 
i) 4) 
85 
B5 
A2 
48 
68 
DO 
03 
4C 
95 
96 
6A 
6B 
20 
cé 
A& 
A9 
De 








9BCS:F9Y & 


9BD@:6B 
9BDB: 2E 
9BE6: 85 
9BES: 66 
9BFO:A9 
9BFS: 9E 
9C00:6A 
9C 608: 18 
9C18:A5 
9C18:E9 
9C028:09 
9C28:0A 
9B30: 41 


9B38:4E © 


9B46: 20 
9B48: 6A 
9B58:08 
9B56: 51 
9B69:29 
9B68:AB8 
9B7O:F9 
9B78: 98 
9BB9:C9 
9B88: 80 
9890: 80 
9898: 85 
9BAG: 06 
9BAB: 86 
9BBO:A6 
SBBS: 19 
SBC8:69 
9BCB:F9 
9BD9:6B 
S9BDS8: 2E 
9BE@: 85 
9BE8: 66 
9BFO:A9 
9BFS: 9E 
9CO0:6A 


9098: 10 


9C19:A5 
9C18:E9 
9C0286:089 
9C 28: BA 
9C30:FC 
9038: De 
9C48:A9 
9C48: 6A 
9058:05 
9058: 85 
9C68:06 
9C68: 85 
9C076:85 
9C78:FB 
9C88:A9 
9C88:88 
9C090:20 
9C98: 9F 
9CAG: 65 
9CA8: 85 
9CBG8:A2 


9CBB:A9 


9CCH:A9 


| 9CCB:A5 


| 9CD8:20 
9CD8:99 


9CEO:A4 


9CE8:c9 
SCFPO:F9 


9CF8: 63 


9DG68: 63 
9DO8:FOH 
9D10: 64 
9D18: 26 
9D20:9D 
9D28:FB 
9D30:25 
9D38:62 
9D408: 92 
9D48:86 
9D58:65 
9D58: 60 
9D66:61 
9D68:F8 





9D70:FE 68 86 6) AB OO 28 AG 1G 
9D78:9D 28 96 85 C6 2A DO F2 li? 
9D80:26 42 9D C6 29 F@ 18 AS SF 
9D88:29 29 63 DB 06 26 G6 YD GA 
9D98:4C 96 9D 20 39 9D AQ 10 FO 
9D98:85 2A A2 05 4C 72 9D 68 8D 
9DAB:A2 68 AI 30 BD FS YE BD 74 
SDA8:F6 9E 8D F? JE Bl FB DD C9 
9DB8:ED 99 99 BA 38 FD ED 99 2B 
9DB8:FE F5 9E 4C AF 9D ES EO 30 
9DC8:03 DB EC A6 61 Bl FB CY 4D 
9DC8:64 BO 86 C8 C9 BA BS Ol B88 
9DDG:CS8 BY F5 YE 9D BH B2 ES 61 
9DD8:C8 CO 64 DE F4 68 AD BOB B2 
9DE@:8D EB 9D 8D EE 9D A® 20 BY 
SDE8:A2 86 AD FF FF 8D FF FF 61 
9DF@:EE EB 9D EE EE 9D CA D@ 95 
SDF8:F1 EE EC 9D EE EF 9D 88 55 
9E9@:DB E6 60 AD BE DC 29 FE 7B 
9E08:8D OE DC A5 81 29 FE 85 B5 
9E18:01 66 AS 81 O89 B) 85 Bl B3 
9E1B8:AD BE DC 69 Ol SD BE DC 13 
9E20:60 20 03 9E AY AO SD EC B? 
9E28:9D AY 20 8D EF 9D 28 DE 93 
9E30:9D 4C 12 9E AQ 20 8D EC 51 
9E38:9D AY AO BD EF 9D 4C DE O9 
9E40:9D 68 BO 8B BO BO BO BH AC 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





Mozart Magic 


| Article on page 45. 


MF 5 PRINT CHRS(144):VOL 15 
RM 18 SCNCLR:PRINT"19 DOWN] 


GH 


20 


30 
4g 
58 


60 


76 

8g 

98 

160 
116 
126 
138 
148 
158 
1609 
176 


180 


({RVS}{14 RIGHT} MOZART MA 
cic" 
TEMPOS: PLAY"O4QCICccCcC.cSs 
FOCRO3SBISBSBSBSBS04cC035 
BASBIARBOQBIBBBBO4.CSDQES 
RE. FSDQCO3BO4C" 
DIMMS(7,11),M15(8,11),M2 
$(2),R(7),R1(8) 
FORI=1TO7:FORJ=1T0O11:REA 
DM$(I,J):NEXT:NEXT 
FORI=l1TO8:FORJ=1TO11:REA 
DM1$(1I,J):NEXT:NEXT 
M2S(1)="V204QDV3GVLO1LIGO 
2SGFEDM":M2$(2)="V2040DV 
3IGVIOLIGO2SBG#FEM" 
SCNCLR:FORV=)1TO3 
PRINT" {HOME} {DOWN} CHOOS 
E AN INSTRUMENT FOR VOIC 
E"V 
PRINT" (DOWN) | RVSJOLOFF } 
PIANO 
PRINT" {DOWN} {RVS}1 
{OFF} ACCORDION 
PRINT" {DOWN} {RVS}2 
{OFF} CALLIOPE 
PRINT" {DOWN} [LRVS}3 
{OFF} DRUM 
PRINT" {DOWN} |[RVS}4 
{OFF} FLUTE 
PRINT" | DOWN] LRVS}5 
{OFF} GUITAR 
PRINT" | DOWN} {RVS}6 
[OFF} HARPSICHORD 
PRINT" {DOWN} {RVS}7 
[OFF] ORGAN 
PRINT" {DOWN} [LRVS}8 
{OFF} TRUMPET 
PRINT" | DOWN] {RVS}9 
[OFF!} XYLOPHONE 


AP 
EX 


BC 


AS 


XP 


SK 


BG 
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199 


200 
216 
2208 
230 
240 
2568 
260 
270 
288 
296 
368 
318 
320 
336 
348 
358 
360 


3796 
386 
3908 


406 
410 


426 
430 
440 
450 
460 


470 


' 480 


496 
988 
518 


59208 


9368 


948 
556 


560 


576 


580 
590 


GETKEYIS:IFI$<"9"ORIS>" 
9"THEN19O 

INS=VAL(IS$) 
IFV=LTHENPLAY "V1 
IFV=2THENPLAY "V2 
IFV=3THENPLAY "V3 
IFINS=@THENPLAY"T@ 
IFINS=l1THENPLAY"T1 

IF INS=2THENPLAY"T2 
IFINS=3THENPLAY"T3 

IF INS=4THENPLAY "T4 
IFINS=5THENPLAY"T5 
IFINS=6THENPLAY"T6 
IFINS=7THENPLAY"T7 

IF INS=8THENPLAY"TS 
IFINS=9THENPLAY"T9 

NEXT :SCNCLR 

N=8:D0 

PRINT" {HOME} |DOWN}] TEMP 
O14 RIGHT}13 SPACES} 

{4 LEFT} "N 

PRINT"{DOWN} {RVS}F 
{OFF }ASTER 

PRINT"{DOWN} {RVS]S 
[OFF }LOWER 

PRINT" {DOWN} LRVSIJE 
{OFF JXIT 

GETKEYTS 
IFTS="F"THENN=N+1 : IFN=> 
255THENN=255 
IFTS="S"THENN=N-1: IFN=< 
@THENN=] 
IFTS="E"THENEXIT 

LOOP: TEMPON 
FORI=1TO7:R(1I)=INT(RND( 
1)*114+1):NEXT 
FORI=1LTOS8:R1L(I)=INT(RND 
(1)*11+1):NEXT:SCNCLR 
FORK=].TO2:FORI=)T0O7: PLA 
YMS (I, R(1I)):NEXT:PLAYM2 
S(K):NEXT 
FORK=1T02:FORI=1TO8:PLA 
YM1S(I,R1(1I)):NEXT:NEXT 
GOTO79 


REM FIRST THROW 
DATA V1lO2QCV304IECO3GM, 
V1O2Q0CV2EV303IGO4CEM, V)}. 
02QCV2EV304IGECM, V1020C 
V2EV304SCO3B04CEO3GO4CM 
,V1O2QCV2EV305SCO4B05C0O 
4GECM, VlO2QCV304SEDEGO5 
CO4GM 

DATA VlO2QCV2EV304IGSFE 
DCM, VLO2QCV2EV304SECGEO 
5CO4GM, V304 ICVIO2SCV2EG | 
MV303IGV102SCV2EGMV3041 
EV1O2SCV2EGM 

DATA VlO2QCV2EV304IGCEM 
,V1LO2ZICV203EV304CV102CV 
203EV304CV102CV203EV304 
CM 

REM SECOND THROW 

DATA V102QCV304IECO3GM, 
V102QCV2EV303IGO4CEM, V). 
02QCV2EV 304IGECM, V102QE 
V2GV304SCO3GO4CEO3GO4CM 
DATA V1O2QCV2EV305SCO4B 
O5CO4GECM, Vl02QCV304SED 
EGO5CO4GM, V1020CV2EV304 
IGSFEDCM, V102QCV2EV304S 
CO3GO4ECGEM 


DATA V1lO2QCV2EV304ICO3G 
O4EM, VLO2QCV2EV304IGCMV 
LO2ZCV2GVIO4EM, VlO2ZICV20 
JSEVIO4CVLIO2ZCV2Z03EV304CV 
LO2ZCV 203EV304CM 

REM THIRD THROW 

DATA VLOLOBV202GV304SDE 
FDMV1LOLIGV304CO3BM, V1O1 
QGV303 IBO4DGM, V101QGV30 
3IBO4SDO3BAGM, V1O2QGV2B 
V304IFDO3BM 
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608 


610 


620 
630 


640 


659 


660 
670 


6860 


690 


708 


718 
720 


7390 


746 


756 


760 


770 


780 





DATA VI1OLQBV202DV3045SG# 
FGDO3BGM, V1O2QGV2BV304S 
FEFDCO3BM, VLO1QGV202GV3 
O3SBO4CDEMVIOLIBV202GV3 
O4SFDM 

DATA VlO2ZTGV203BV304DV1 
O2ZGV2Z03BV3I04DV1O2GV203B 
V304DM, V10] QGV303SB04CD 
O3BAGM, VIOLQBV3041ID03BG 
M, VlO2QGV303SBAB04CDO3B 
M 


REM FOURTH THROW 

DATA V102QCV2EV304SCO3B 
O4CEO3IGM, VlO2QCV304SEC 
03B04CO3IGM, V102QEV 2GV3 
041CO3GEM, V102QEV2GV304 
ICEO3GM 

DATA V102QEV2GV304SCO3B 
04CO3GECM, V102QCV2EV304 
ICSCDIEM, V102QCV 204 ICV3 
EV2SCV3EV2DV3FV2IEV3GM 
DATA V1O2QEV2GV304ICSEC 
O03IGM, V1O2QEV2GV304SC03 
GO4ECIGM, VIO2ZQEV2GV304I1 
CSEC IGM, V1O2QEV2GV304SC 
ECO 3GIEM 

REM FIFTH THROW 

DATA V102QCV3041 #FSA#FD 
#FM, VlO2ICV203#FV304DV1 
O2CV204DV3#4FV102CV2044F 
V3AM, V102QCV304SD03A04$ 
FDA#FM 

DATA VLO2ZICV203#FV304DV 
102CV203#FV304DV102CV20 
3#FV304DM, VLO2QCV3041D0 
3SABAO4I #FM, V102QCV3048S 
D#¢CD#FA#PM 

DATA Vl1O2QCV2AV30414FAM 
V102CV2AV304DM, VlO2ICV2 
#FV303AV102CV2#FV303SAO 
4DMV102ICV2AV3044FM 
DATA VlO2ICV204DV3#FV10 
2CV204DV34FV102CV204DV3 
#FM, V1O2ICV2DV304#FV102 
CV2DV304S#FDMVLO2ICV2DV 
304AM, V102QCV2AV304S#FD 
O3AO04A$FDM 

REM SIXTH THROW 


DATA V1lO2IBV202DV304SG# 


FMV LOLIBV20 2DV304SGBMV1 
OLIBV202DV304DM, VLOLOQBV 
202DV 304IGSBGDO3BM, V1Ol 
QBV202DV304IGBDM 

DATA VLOLOBV202GV303 IAS 
#FGBO4GM, VIOLOBV202DV30 
4SG #FGDMV101 IBV202GV303 
SBGM, VLOLQBV304IGSBGDGM 
,V1O1LOBV20 26V3041DSGD03 
BO4DM, VIOIOQBV2Z02GV304ID 
SDGIBM 

DATA V1OLIBV202DV304SAG 
MVLOLIBV202DV304S#FGMV1 
O1LIBV20 2GV304DM, VLOLOBV 


202DV304IGSGDIBM, V1O1QB 


V202DV 304SGBGDO3IBM 

REM SEVENTH THROW 

DATA VlO2ZICV304SECMV102 
IDV3IO3SBAMVLOLIDV303SG# 
FM, VlO2ICV303SA04EMV102 
IDV203SBV304DV203AV304C 
MV LOLIDV203SGV3BV2#FV3A 


M 
DATA V1lO2ZICV203SBV3I04DV 


‘203AV304CMV1LO2ZIDV203AV3 


O4CV2Z03GV3BMVLOLIDV2035 
GVIBV2#FVIAM, VlO2ZICV3I04 
SEGMVLO2IDV304SDCMVIO1I 
DV303SBAM 

DATA V1OZICV303SA04 EMV1 
O2TDV304SDGMV1LOLIDV3045 
#FAM, VlO2ICVIO4SEAMV102 
IDV3IO4SGBMVIOLIDV3IO0O45#F 
AM, VLO2 ICV304SCEMV102ID 
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796 


836 


B40 


850 


B68 


870 


88o 


898 


960 


918 
920 


9308 


9406 


950 


968 


978 


V304SGDMVLOLIDV303SA04# 
FM 

DATA VlO2ICV3I04SEGMV102 
IDV304SDGMV1LOLIDV303SB0 
4#FM, VIO2ZICV304SECMV102 
IDV3O03SBGMVLOLIDV303SA# 
PM, V1O2ZICV3I04SEO5CMV102 
IDV3O4SBGMVLOLIDV304SA# 
FM 

DATA V1lO2ICV303AV1O2DV3 
O4SDCMV1OLIDV3I03SBAM 
REM PART TWO FIRST THRO 
W 

DATA V1lO2ZQDVIO4I1€FSAtFM 
V1lO2ZICV3I04SD#FM, VlO2ZQDV 
2#FV304SD0 JAO4DFFARFM, V 
LOZIDV2Z2AVI04 #FV1IO2ZDV2 FF 
V304AV1LO2CV2DV304 FFM 
DATA V1lO2Z0CV2ZAV3045#FAO 
S5SDO4AMV1LO2ZICV2ZAV304 #FAM 
,V1lO2QDV3I03SD#FAO4DMV1O 
2ICV304S#FAM 

DATA V204IDV34FV101SD02 
DMV3040 #FV1O2S#CDCDM, V1 
O2QDV2Z#FVIO4 IAS FMV1LO2ZCV 
2#FV3DM, VlO2QDV2#FVIOSI 
DO4SA#¢PFMVLOZICV2¢FV3I045 
DO 3AM 

DATA VLO2QDV2#FV304SD03 
AO4ID#FM, VIOZQCV2AVIO4GS 
#FDO3 IAMVLO2CV2AV304 2FM 
» VlIO2Z2QDV24FV303TAO4DMV1 
O2CV2AV304 #FM 

REM PART TWO SECOND THR 
OW 

DATA VLOLOQBV202GV304IG5 
BGIDM, V304IGVLOILSBO2DMV 
303 1GV1LO2ZSGDMV3I03IGVI1Ol 
SBGM, V1OLOBV304SGBGBIDM 
DATA VLOLOBV202DV3045AG 
BGMVLOLIBV202DV304SDGM, 
V1OLOBV202DV304I1GSD0O3BM 
VIOLIBV202DV303GM 

DATA V1O1QBV202DV3045SGB 
O5DO4BMVILOLIBV202DV304G 
M, VLOLQBV202DV304SGBGD0 


3BGM, VIO1LQBV202DV304SGD 


GBMV LOLIBV202DV304SGDM 

DATA VILOLOBV202DV3045GB 
IGMVLOLIBV202GV304DM, V3 
O4IGVLOLSGBMV304QDV102T 
GO1BM, VLOLQBV304IGSBO5D 
O4IDM 


REM PART TWO THIRD THRO 
W 


DATA V2Z04ICVIEVIO2ZSCEMV 
204 ICV3IEV1LO2ZSGEMV204ICV 
3EV1LO3SCO2CM, VLO2ZQEV304 
SCO 3GO4CEMV1LO2ZEV304GV10 
2CV204CV3EM, VlLO2QCV2GV3 
O4TESGEMV1LO2ZICV2DV304CM 
DATA V1lO2Z2QCV2GV304S5SECEG 
O5CO4GM, VLO20CV2GV304SE 
GO5CO4GMV1LO2ZICV2GV304SE 
CM, V2O4ICV3EV1LO2SCOl1BMV 
3040EV102SCDE#FM 

DATA V304IEV1O2SCV2EGMV 
JO4ICVLO2ZSCVZEGMV303IBV 
102SCV2EGM, V1O2QCV2GV30 
4TESCEMVLO2CV2EV304G05C 
M4 

DATA V1lO2QCV2GV304SECIE 
MV lLO2CV2EV304GM, Vi02QCV 
2GVIO4SECO3SIGMVLO2ZCV2GV 
304EM, VlO2Q0CV 2GV304IEGM 
VlO2CV2ZEV305CM 

REM PART TWO FOURTH THR 
OW 

DATA VlO2QGV204ICV3EV20 
3BV304DMV101GM, VIO1LQGV2 
O2GV304SD03BIGMV102GM, V 
1O2IGV204CV3 EMV1LOI1GV203 





989 


9998 


1869 
161.6 


1626 


1638 


1640 


1858 


1668 


1970 


SBV304DV203GV3BV2IGM 
DATA V102QGV304SECDO3BI 
GM, V1O2IGV304SGEMVIOLIG 
V304SD03BIGM, V102QGV303 
SBO4DGDMV1011GV303BM, V1 
O2IGV304SECMV1011GV303S 
BO4DIGM 
DATA V102QGV2BV304SDBGD 
O3IBM, VLO1QBV202GV304SD 
O3BIGMV1O1BV202DV304GM, 
V304IDV1lO2SG#FMV303QBV1 
02SGDO1BGM 
DATA Vl02QGV203IBV304D 
SGBMV102IGV304DM 
REM PART TWO FIFTH THR 
OW 
DATA V304IEV102SCV2EGM 
V304ICVLO2SCV2EGMV3031 
GV 102SCV2EGM, V303IGV1LO 
2SCV2EGMV304ICVI102SCV2 
EGMV304IEV1O02SCV2EGM 
DATA V304IGV1LO2SCV2EGM 
V304EVl02SCV2EGMV3041C 
V102SCV2EGM, V102QCV2EV 
304SCO3BO4CO4EMVIO2IEV | 
2GV303SGO4cM 
DATA V1lO2QCV2EV305SCO4 
BOSCO4GMV1O2ICV2GV304S 
ECM, V10 20CV 2GV304SEDEG 
MVILO2ZTICVZEV305SC04GM,V 
10 2QCV2EV304IGSFEDCM 
DATA V1020CV2EV304SCO3 
GO4ECGEM, V304ICVJO2SCV 
2EGMV 303IGV1O2SCV2EGMV 
3041EV)02SCV2EGM 
DATA V304IGV102SCV2EGM 
V304ICV1LO2SCV2EGMV3041 
EV102SCV2EGM, V102ICV20 
3EV304CV102CV303EV304C 
V102CV203EV304CM 
REM PART TWO SIXTH THR 
Ow 


10988 DATA V304IEV1LO2SCV2EGM 


109¢ 


VIO4SICVLO2SCVZEGMV3IO3I 
GV1O2SCV2EGM, VlO2QCV2ZE 
VIO3IBO4CMV1LO2CV2GV304 
EM, V304IGV1lO2SCV2EGMV3 
O4TEVLO2ZSCV2EGMV304ICV 
1LO2SCV2EGM 

DATA VlO20CV2EV304SCO3 
BO4EMVILO2ZICV2ZEV3I03SGO04 
CM, VLO2ZQCV2ZEV3IO5SCO4B0 
5CO4GECM, VlO2QCV2GV304 
SEDECMVLO2ZICV2EV305SCO | 
4GM 


1188 DATA V1lO20CV2EV304IGSF 


EMVLO2TEV2GV304SDCM, V1 
O20CV 2EV304SCO3GO4ECGE 
M, V304ICV1O2SCV2EGMV30 
3IGVLO2ZSCVZEGMV 304 IEV1 
O2SCV2EGM 


1118 DATA V304IGV102SCV2EGM 


1120 


1138 


11468 


1158 


V304ICVLO2SCV2ZEGMV3IO4I 
EV1O2SCV2EGM, V1lO2ICV20 
JEV304CV1LO2CV203EV3I04C 
V1lO2CV203EV304CM 

REM PART TWO SEVENTH T 
HROW 


DATA V1lO2QFV2AV304SDFD 
FMV1LO2IGV203DV3SBO04DM, 
V1lO2QFV304SDFAFMV1LO2IG 
V304SD03BM, VlO2QDV304S 
DFOSJAO4DMV1LO2ZIGVIO3ISBO 
4DM 

DATA VlO2QFV304SD#CDFM 
V1lO2IGV303SGBM, VIO2IFV 
J04FV1O2LV304DV102GV30 
4GM, VlO2SFV304FV1O2EV3 
O4EV 1LO2DV304DV LO2ZEV304 
EVLO2ZFPV304FV1LO2GV302GM 
DATA VlO2SFV304FV1lO2ZEV 
JO4EVLO2ZIDV3I04DV1IO2GV3 








O4GM, V1020FV304SFEDCMV 
102I1GV303SBO4DM, V1020P 
V304SFD03 IAMV102GV303B 


M 

PF 1160 DATA VlO2QFV304SFA03IA 
MV10 2GV303SB04DM, V1020 
FV3IO3IAO4SFDMV1LO2ZIGV30 


3SABM 


XB 1170 REM SECOND PART EIGHTH 


THROW 


CG 1180 DATA V304QCV1LO2ICOI1GCM 
1 V3040CV102ICOlGCM, V30 
4QCV1LO2ICO1GCM, V304QCV 
LOZICOIGCM, V304Q0CV102I 
CO1LGCM, V304Q0CV102ICOl1G 


CM 


CG 1199 DATA V304QCV102ICO1GCM 
,V304QCV1021C01GCM, V30 
40CV102ICOJGCM, V1020CV 
304 ICO3CVJ.O1CM, V3040CV 


LO2ZICOLGCM 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 


COMPUTE!’s GAZETTE Programs,” 


_ elsewhere in this issue. 





The Construction 


Set 
Article on page 39. 


Program 1: Main Program 


DD 108 POKE5328@, 1:POKE53281,1 
CQ 110 PRINT"{CLRJ|19 DOWN) 


{9 SPACES}K20@ @]" 


DJ 128 PRINT"{9 SPACESJ\(RVS]TH 
E CONSTRUCTION SET" :AS= 
"|2 SPACES}|RED]JES @3" 


HP 1360 PRINT"{7 DOWN] 


[12 SPACES]PLEASE WAIT. 


| JX 146 POKES5S, 6: POKE56, 64:CLR: 
BA=)16384: READA:FORI=1TO 
A:READX$:NEXT:FPORI=1TO3 


D2 


HX 1.50 READX:S=S+X:NEXT: IFS<>3 
4546THENPRINT"ERROR IN 
{SPACE}JDATA STATEMENTS. 


":STOP 


| XF 160 RESTORE: DI=8:READNS: REM 
SET DI=] FOR TAPE 
| PP 178 DATA 3, "HOUSE", "CREATUR 


E" "SHAPES" 


FJ 180 PRINT" (UP}{)4 SPACES]LO 
| ADING...12 SPACES]":FOR 
N=0 TONS -) :CHSET=BA+6). 44 


+N*2048:READXS 


| JE 190 GOSUB1200:NEXT: PRINT" 
(CLR} LRVS}1GRNJ":FORN=1 
TO40:PRINT"EY4";:NEXT 


GE 268 PRINTAS:PRINT" 


{2 SPACES] {RVS]|RED] 

(3 SPACESJF1\13 SPACES} 
{OFF} 1BLU}19 SPACES} FOR 
DIFFERENT PICTURE"; 


QJ 210 PRINTAS: PRINT" 


{2 SPACES} {RVSJLRED] 
{3 SPACES}F7{3 SPACES] 
{OFF} |BLUJ {9 SPACES}FOR 


INSTRUCTIONS" 
MK 220 PRINTA$: PRINT" 


{2 SPACES] (RVS}\|RED}+ A 


ND - LOFFJLBLU) 





230 


248 


256 


260 


2798 


2898 


298 


388 


316 


3208 


330 


3468 


3598 


360 


370 


380 


390 


490 


{9 SPACES]}FOR EXTRA PIE 
CES" 

PRINTAS;: PRINT" 

{2 SPACES}{RVS}{LREDJ Cu 
RSOR {BLU]|OFF} 

{9 SPACES]SELECTS PIECE 


PRINT"{2 SPACES}{RED} 

R16 @3":PRINT" 

{2 SPACES]|{RVS}{RED} Jo 

YSTICK {BLU} LOFF} 

1? SPACES}POSITIONS PIE 

CE" 

PRINT"{2 SPACES]1{RED] 

k13 @3":PRINT" 

{2 SPACES/|RVS]{RED} FI 

RE BUTTON {OFF} {BLU} 

\4 SPACES}]STAMPS PIECE" 

PRINT"{2 SPACES}1{RED} 
R18 @3":PRINT" 

{2 SPACES/]|RVS] {RED} IN 

ST DEL {OFF}){BLU} 

{7 SPACES}ERASES PIECE" 

PRINT"{2 SPACES}{RED} 
R16 @9":PRINT" 

{2 SPACES}|RVSJ{RED} SH 
IFT CLR HOME [OFF}{BLU) 
ERASES SCREEN" 

PRINT"{2 SPACES]}1RED} 

E38 @4"; 

PRINT"{2 SPACES} {RVS] 
{RED}PUSH ~ AND THEN Fi 
, F3, F5{12 SPACES}" 


PRINT"{2 SPACES}{ BLU] TO 


CHANGE BORDER, SCREEN, 
& PICTURE{5 SPACES] COL 
OR. F7 RESUMES PROGRAM" 
PRINT" {RVS}(GRN}":FORN= 
1TO46:PRINT"KY4"; :NEXT 

PRINT"E1.49{9 SPACES]USE 

{SPACE} PORT 2 FOR JOYST 
TICK." 
V=53248:SB=)5360+BA:SC= 
BA:H1=33:CB=1:MM=254:MN 
==], 
SE=8:FORSP=0TO2:FORN=0T 
063:READD: POKESB+N+ (64* 
SP),D:NEXT:NEXT 
FORA=53088T053247:READI 
: POKEA, 1:NEXT:SYS53088: 


POKE1 7400, 241: POKEI 74061 


, 240 

POKE) 7402, 242: POKEV+39, 
1: POKEV+3, 205: POKEV+2, 2 
4:POKEV+40, 18: POKEV+28, 
1 


POKEV+37, 5: POKEV+38,1:P 
OKEV+28, PEEK(V+28 )OR4:P 
OKEV+41,1 

DIMAS (88,3):X=1:FORC=l1T 
020 

CO=CO+l] :FORR=]1TO3:AS(C, 
R)=STRS (X):X=X+32:NEXT: 
X=X-93:IFCO=)@THENCO=0; 
X=X+66 
NEXTC:CO=#0:FORC=2).TO50: 
CO=CO+).:A$(C,1)=STRS(X) 
sAS(C,2)="256":AS(C,3)= 
ia ? 56 mt 


X=X+3 : IFCO=) OTHENCO=0: X 
=X+2 

NEXT: POKE53265, PEEK (532 
65 )AND239: POKE56578, PEE 
K(56578 )OR3 

POKE56576, (PEEK(56576)A 
ND252 )OR2:A=4:SK=-16:P0 


KE53270, PEEK (53278 )OR16 


:PY=1 


| FORN=1 TONS: GOSUB699@ ; POK 


E53281,15:PRINT"{CLRj": 
POKE53281,0:NEXT: PY=0:A 
=4:SK=-16 





CR 
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POKE53282, 2: POKE53283,1 
+ GOSUB699: POKEV+21,3:P0 
KEV, 24: POKEV+i1, 50 
POKEV+27,@:POKES3265, PE 
EK(53265 )ORI6:X=24:Y=50 
J2=PEEK(56320):FR=J2AND 
16:JV=)5-(J2ANDI5):IFJV 
=). THENY=Y-SE: IFY<50THEN 
Y=50 
IFOV=2THENY=Y+SE: IFY>?19 
4THENY=1 94 
IFIV=4THENX=X-SE: IFX<24 
THENX=24 
IFJV=8THENX=X+SE: IFX23] 
2THENX=312 
TR=(X2255):POKEV+16, (PE 
EK(V+16)AND(MM) )ORTR*(M 
N):POKEV+SP*2,X+(TR*255 
) 
POKEV+(SP*2)+1,Y¥+2:IFFR 
=OTHEN640 

GETKHS: IFKHS=""THEN479¢ 
IFVAL(KHS ) <4ANDVAL (KHS ) 
>OTHENSE=8*VAL(KHS):GOT | 
04706 
IFKHS="={"THENCB=CB=-9: IF 


CB<OTHENCB=37 
IFKHS="+"THENCB=CB+9: IF 
CB>37THENCB=] 
IFKH$="+"ORKHS="-"THENG 


OSUB736:GOTO5390 
IFKH$S="{ RIGHT} "ORKHS=" 
(LEFT! "THEN GOSUB786:GO 
TO470 

IFASC(KHS )=20THEN646 
IFKHS="{CLR} "THENPOKES3 
28).,15:PRINT" {CLR} ":POK 
E53281,08:GOSUB/30:GOTO4 
76 
IFKHS="{F1J]"THENGOSUB69 
s] 
IFKHS="[F7J)"THENGOSUB12 
68 


GOTO4708 
X1=(X-24)/8:Yl=((Y-50)/ 
8)*40:S=SC+X1+Y1:FORR=1 
TO3:FORC=6TO2 

P=VAL(AS (CB+CX,R) )+C:IF 
KH$<>"" THEN: IFASC(KHS$)= 
20THENP=32 

IF P>255THENP=32 
POKES+C+(R-1)*40, P: NEXT 
: IFVAL(AS(CB+CX,1))+C>1 
85THENR=3 
NEXT: FR=], :GOTO47@ 
A=A+2:SK=SK+16:IFA>120R 
(A-6 ) /2=NSTHENA=6 :SK=0 
SC=BA+1924*SK/16: POKE53 
272, (PEEK(53272)ANDI15)o 
RSK 

POKE53272, (PEEK(53272)A 
ND24@ )ORA: POKE648,SC/25 
6: 1FPY=1THENRETURN 
POKESC+1016, 241: POKESC+ 
1917, 248: POKESC+1 618, 24 
2:GOSUB730: RETURN 

VA=0 :CO=0:FORC=).TO09:CO= 
CO+1]1:FORR=1TO3:FORN=1TO 
3:P=VAL(AS(CB+C-1,R))-1 
+N 

IFP>255THENP=32 
POKESC+880+VA+N+(C-1) *4 
+(R-1 )*48, P: NEXT: IFVAL( 
AS (CB+C-1,R))-1+N>185TH 
ENN=3 

NEXT: IFCO=9THENCO=@: VA= 
VA+1 20 

NEXT: GOSUB880 : RETURN 
IFKH$="{LEFT}"THEN HJ].=H 
1-32:CX=CX-1: IFCX<@THEN 
CX=8:H]=288 

IFKHS="| RIGHT] "THEN Hl= 





17 


FH 


PH 





800 


B10 


B20 


836 
840 


856 
866 
870 
886 
B90 
900 
91.6 
920 
930 
940 
950 
960 
9798 
980 
996 
1.000 
1918 
1826 
1030 
1646 
1856 
i868 
19876 
1,086 
1096 
1106 
111¢8 
1129 
1138 
i149 
11 5a 
1166 
1176 


1186 


H14+32:CX=CX+1:IFPCxX>8THE 
NCX=0 :H1l=40 
IFVAL(AS(CB+CX,1))+cC>18 
5 THENSP=2:SV=-16: POKEV+ 
21,6:MM=251:MN=-4 
IFVAL(AS (CB+CX, 1))+cC<18 
9THENSP=0:SV=0: POKEV+21 
,32MM=254 :MN=-) 
TZ=(H1>255):POKEV+16, (P 
EEK(V+16)AND(253))ORTZ* 
(-2 ): POKEV+2,H1+(7T2Z*255 


) 
RETURN 
DATA 3,252,8,7,254,0,15 
, 254,90, 3) 
DATA 110,0,31,247,0,29, 
255,0,55,253 
DATA 128,6),19),128,59, 
223,128, 508,238,128 
DATA 315,187,128, 99,187 
,128,3,185,9,3,144,0 
DATA2,128,6,3,]28,0,3,) 
28,0,2 
DATAJ28,0,1,0,0,9,9,9,@ 
O 
DATAG, 0,85, 85,85,127,25 
5,253,112,@ 
DATA)3,112,9,13,1)2,9,1 
3,112,0,13 
DATAJJ2,0,)3,132,9,)3,) 
12,8,13,112 
DATAG,13,112,8,13,112,9 
,i3 
DATAJ12,0,13,112,0,13,) 
12,08,)3,132 
DATAG, 13,1)2,0,)3,112,9 
13, 11270 
DATA]3, 127,255, 253,85,8 
5,85,247,85,85 
DATA85, 106,170,169, 96,2 
,9,96,0,9 
DATA 96,0,9, 96,9,9, 96,2 
, 9,106 
DATA17@8,169,85,85,85,9, 
g,08,0,0 
DATAG,0,0,9,9,0,9,9,9, 
g 
DATA 8,0,9,8,8,8,9,8,0 
g 
ty 
DATAG, 0,0,8,9,0,9,0,8, 
9 
DATA @,0,120,173, 48,3, 
141,248, 207,173 
DATA41, 3,141, 249, 207, 1 
73,250, 287,141, 40 
DATA3, 173,25], 207,14), 
41,3,88,96,165 
DATA145, 20), 253, 208, 11 
6,126,169,08,133,198 
DATA32,159, 255, 32, 228, 
255, 28),G, 248, 246 
DATA2@1.,133, 240,15, 203. 
,134, 240, 23,281,135 
DATA240, 31,201,136, 240 
, 84, 76,130, 287,173 


DATA32, 288, 24,105,1,14 | 


1,32, 208, 76,138 


DATA 207,173, 33,208, 24 


,i105,1,141,33,208 

DATA 76,136, 207,165, 24 
3,141,252,207,165,244 
DATA 141,253, 207,169,6 
,133,243,169, 216,133 
DATA 244,173,134, 2, 24, 
195,1,141,134,2 


DATA 162,4,160,0,145,2 


43,136, 208, 251, 202 
DATA 2460,5, 2308, 244,76, 
216, 207,173,252, 267 
DATA J.33,243,173,253,2 
067,133,244, 76,130,207 
DATA 88,108, 248, 207, 23 
7,246,123,287,2,8 
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| 7650:1) 


| 7898:45 


| 708A: 00 


| 78D8:08 


fora a pele 





| 7136:66 


11998 
1280 


DATA 255, 255 
FORI=1LTOLEN(X$ ): POKE67 
8+I,ASC(MIDS(X$,1I)):NE 
xT 
POKE781, 167: POKE782, 2: 
POKE786@, LEN(X$):SYS654 
69 
POKE780,1:POKE781,DI:P 
OKE782,60:SYS65466 
POKE78@,0:POKE78)].,@: PO 
KE782, CHSET/256:SYS654 
93 

IF (PEEK(783 )AND1 )OR(19 
LANDST ) THENPRINT" LOAD 
{SPACE} ERROR" :STOP 
CLOSE1:RETURN 
POKE56578, PEEK(56578)o 
R3:POKE 56576, (PEEK(56 
576 )AND252 )OR3 
POKE532790, PEEK (53270 )A 
ND239: POKE53272, (PEEK( 
53272 )AND15)OR16 
POKE53272, (PEEK (53272 ) 
AND240 )OR4:XX=PEEK (V+2 
1):POKEV+21,@:POKE5328 
1,8 

GETKS$: IFK$=""THENJ.290 
POKE56578, PEEK(56578)0O 
R3:POKE56576, (PEEK(565 
76 )AND252 )OR2 
POKE53270, PEEK(532798 )o 
R16: POKE53272, (PEEK(53 
272 )ANDL5 )ORSK 
POKE53272, (PEEK(53272) 
AND248 )ORA: POKE53281,86 
: POKEV+21,XX: RETURN 


1210 


1220 


1236 
1240 


1250 
1260 


1.270 


1280 


1290 
1300 


131.0 


1.320 


Program 2: The Construction 
Set—House Character Set 


See instructions in article on page 
39 before typing in. 


7000:00 80 BOO 
7008:00 88 OB 
7616:3C 3c 3c 
7018:080 80 O86 
702@:5) 55 5) 
7028:14 55 45 
7836:5) 45 51 
7038:1) 45 GOA 
76040:45 65 AA 
7048:1) 45 AY 
54 55 
55 15 
54 
L4 
55 
55 
54 
5] 
44 
O06 
Ob) 
Oo 
14 
6] 5) 
8a 
ae 
ae 
1) 
45 
6). 
55 
ae 
Oo 
5] 4) 
3c 
86 
51 
51 
51 
60 


1) 
a) 4) 
3C 
Ba 
45 
ile: 
1) 
60 
28 
a9 
5B 
AA 
ES 
54 
45 
15 
58 
28 
24 
4) 
}) 
FF 
SF 
FF 
F3 
FF 
et) 
00 
1B 
CF 
85 
4) 5) 
13) 
1B 
CF 
E4 
5) 
54 
a5 
60 


6 ]) 
5) 
3c 
i) 3) 
45 
15 
55 
60 
28 
09 
15 
BE 
55 
15 
51 
14 
18 
28 
25 
La] 6) 
06 
OF 


64) 
Og 
3c 
Og 
54 
5] 
45 
6A 
AA 
A9 
5A 
EB 
A5 
55 
55 
35 
38 
28 
25 
08 
La) 4) 
33 
FF 
FF 
FF 
FF 
1) 
io) 
58 
a) 
95 
68 
)'5) 
06 
33 
96 
45 
45 
45 
60 


Lia) 
63 
FF 
ce 
45 
14 
45 
60 
28 
09 
45 
oo 


EO 
3] 
4B 
QB 
BB 
a9 
83 
FF 
aC 
9) 
DC 
57 
86 
96 
BB 
El] 
37 
D4 
15 
79 
8) 

je} 
AD 
96 
92 
22 
72 
B9 
55 
38 
3D 
D9 
E2 
16 
F6 
82 
BS 
42 
cD 
7B 


5) 
03 
FF 
co 
51 
25 
Ad 
60 
28 
09 
55 
69 
11 
35 
| 55 
35 
5A 
AA 
A5 
Li} 3) 
4) 4) 
83 
FF 
FF 
FF 
FOG 
4) 
o]) 
5A 
CE 
9] 
a) 4) 
i) 4) 
a) 4) 
55 
a8 
a1 
15 
11 
55 


7058:10 
7060:51 
7866:15 
7870:84 
7078: 4) 
7888:1) 
7088:5) 


7098:08 


70A8:00 
7OB@: 28 
70B8:80 
70C8:00 
70C8:00 


70D8:80 
7TOEB:54 
7O0E8:55 
7TOFO:45 
70F8:00 
7106:06 
7188:080 


7118:60 
71268:55 
7128:44 
7130:55 





7148:28 
7148:609 
7158:5B 
7158:FF 
7168:E5 
7168:15 
71768:55 
7178:55 
7188:18 
7188:28 
7198:25 
7198:65 
7IA8:63 
7TIAB:FC 
71B68:FC 
71B8:FC 
71C8:FC 
71C8:Fc 
71D8:FO 
71D8:08 
71E@:5B 
TLES8:CF 
71LFS8:95 


71F8:00 | 


7208:00 
7208:5B 


| 7216:C3 


7218:E5 
7220355 


| 7228:05 


7230:51 
7238:68 


| 7248:28 
| 7248:09 
| 7250:5B 
| 7258:FF 
| 7260:E5 


7268:18 
7276:28 
7278:25 
72808:50 
7288:54 
7299:55 
7298:56 
72A0:94 
72A8:55 
72B90:55 
72B8:55 
72C0:55 
72C8:55 
72D8:55 
72D8:69 
72E9:59 
72E8:65 
72F0:95 
72F8:09 
7300:00 
7308:08 
7310:88 
7318:02 
7328:88 
7328:98 
7330:088 
7338:08 
7340:62 
7348:AA 
7350:AA 
7358:AA 
7360:AA 
T368:AA 
7376:88 
7378:88 
7380:95 
7388:55 
7390:56 
7398:00 
73A0:00 
73A8:82 
73B0:08 
73B8:A8 
73C0:06 
73C8:15 
73DB:AA 
73D8:56 


73IEB:A8 ! 


54) 


3) 


868 





7568:55 55 56 59 65 95 55 
7576:65 99 56 55 55 55 55 E9 
7578:55 55 55 95 65 59 56 4F 
7586:95 95 95 95 95 95 95 95 6B 
7988750 5@ 58 55 55 55 55 55 OF | 
7596:56 56 56 56 56 56 56 56 7B 
4398:A0 50 50 55 55 55 55 55 47 
75A0:A0 50 58 55 55 55 55 55 4F 
75A815]1 51 51 55 55 55 55 55 10 
75B8:8) 81 81 @) B61 BO) Bl BO) OB 
75B8:55 55 55 55 55 55 55 55 A3 
75C68:09 88 O88 B88 OO BO OG OO AB 
| 75C8:5B 5B 5B 5B 5A 5A 69 AS BE 
| 75DO:FF FF FF FF 96 55 69 AA 43 
| 75D8:E5 AS ES ES AS AS 69 SA 2C 
75E0:44 45 45 45 45 45 55 55 7B 
75E8:55 55 55 55 55 55 55 55 D3 
75F0:14 14 14 14 54 54 54 54 OF 
75F8:90 88 88 BB BB BO BB BB E3 
7600:08 868 68 88 B86 BB BB OB Ec 
7608:88 88 AA 88 88 AA 88 88 Cl 
7618:88 88 AA 88 88 AA 88 88 C9 
7618:88 88 AA 88 88 AA 88 88 Dl 
7620:BC BF SF BF BF &F BF S&F 94 
7628:88 C3 EB EB EB &@ EB EB 65 _ 
7630:3E FE F2 FE FE F2 FE FE OB | 


7280:00 88 88 68 BG BB G3 OF 
: , 7288:28 28 28 28 28 EB EF FF 
See instructions in article on page 7298:08 88 O8 BB BO BB CBO FA 
| : eam 7298:00 O08 22 20 22 26 20 20 
39 before typing in. 72AG:AA 86 G8 84 2A 86 2A BO 
7886:88 86 68 86 BB BA BB BG EG | 72A8:80 28 22 82 22 82 20 82 
7008:00 88 O68 83 BO3 BF B5 BA B) 72BO:AB 2A 2A 2A OA BOA 16 16 
7010:08 38 FC FF FF FF 55 AA F) | 72B88:55 D7? FF BE AA AA AA AA 
70618:009 08 OB BB BA CB 40 8H Fc | 72CO:ES8 AB AB AB AB AG 9B 94 
7026:06 60 O86 8) O5 3F 55 OA EA | 72C8:03 BO BOG BO BB B2 89 B9 
7828:14 55 55 69 55 FF 55 AA AQ | 72D0:C@ FC 7F JF 95 56 58 58 
7030:08 88 88 46 50 FC 55 AO D6 | 72D8:8C 30 FO 40 BO BB BO Ba 
7038:80 @3 OF OF 3F 3E 2A EA DE | 72E@:22 22 2) 22 22 22 22 22 
7040:FF FF FF FF FF FF BE AA 49 | 72E8:55 96 AA AA 69 69 55 69 
7048:08 CO FO FO FC BC AB AB SE | 72F0:88 88 48 88 88 88 88 BB 
7858:08C 23 68 OO G1 65 15 15 5B | 72F8:00 68 BG BO BB BB BB BA 
7058:88 68 D7 69 55 55 55 55 CA | 7388:00 88 BB BO BB BB BO BB 
7066:30 CB 88 O68 48 5@ 54 54 cB | 7308:F3 F3 3C 3C OF BD OF B2 
7668:35 D5 50 4A C8 CO FPO FF 33 | 7310:DF FF DF FF 7D DF FF AB 
7070:FF 7D 55 3C 3C 3C EA EA B2 | 73)8:FF CF 3C 3C FO 70 FO ce 
7878:5C 57 65 AZ 23 63 OF FF 7B | 7328:55 51 55 15 17 OE 66 B) 
7080:AA 80 88 83 SF SBF &F SF 8a | 7328:55 5D 55 75 55 5D 55 55 
| 7088:AA 60 66 FF FF FF FF FF BE | 7338:55 55 45 45 54 7c AD 40 
7090:AA O02 62 C2 F2 F2 F2 F2 EF | 73398:FF F3 F3 F@ FC 3C 3E GE 
7698:08 08 BB 82 62 69 69 B9 EB | 7340:FF FF FF FF FF FF FF FF 
70A9:2A AA AA AA AA 68 O8 59 20 | 7348:FF FF CF CF CF 3C BC B@ 


BA 





Set—Creature Character Set 


73E8:82 6) 81 @) 6) 8) GB) 8) 50 | 7690:2A 15 15 95 55 55 55 55 71008:00 00 O88 BB BO BO BB BB 
73FO:A8 54 54 54 54 54 54 54 @2 | 7698:55 15 55 54 55 15 55 55 7188:0B OA 20 28 2A 22 O8 OA 
73F8:90 06 69 GO OG BO OO OO DF | 76A8:55 15 55 54 55 15 55 55 | 7110:EF FE 64 64 9A 9A 98 FE 
7400:00 00 36 OO BA BOO BO BOB EB | 76A8:55 15 55 54 55 15 55 55 7118:CO 88 20 AB AD 20 88 BB 
7498:809 GO 68 GG GO OO BO BO FO | 76BG:AA AA AS AA 2A AS AA AA 7120:25 AA A® Al 2A 2A GA BA 
7416:02 8) G9 G1 25 15 95 56 GA | 76B8:AA AA AS AA 2A AB AA AA 7128:EB 7D 28 69 AA BE 82 AA 
7418:55 55 56 56 5B 6F BF DS JF | 76c@:AA 2A AS AA AA AA 8A AA OGD | 7130:58 AA OA 4A AB AB AB AB 
7420:55 55 95 95 E5 F9 FE 57 81 | 76C8:FC FF FF FPF 3F FF FF F3 7138:E9 F9 FA FB FE FF 3E 3A 
7428:80 40 60 50 58 54 56 95 CS | 76DO:FF FF FF FF 3F FF FF F3 7T14O:AA AA BE FF FF 96 AA AQ 
7430:09 86 80 G8 BA BG BO BO 19 | 76DE:FF F3 FFP FF 3F FF FP F3 7148:6B 6F AF EF BF FF BC AC 
7438:02 03 OB OF 2F 3F BF AA D5 | 76E@:55 56 5B 6F 6F BF BF BF 7156:15 57 56 55 15 17 05 61 
7440:F9 F9 F9 FA EA FF FF AA 95 | 76E8:A9 FE FF FF FF FF FF FF 7358:55 D7 96 7D FF 80 FF 7D 
| 7448:6F 6F 6F AF AB FF FF AA B5 | 76F0:54 54 94 E4 E4 FS FS FB 7166:54 DS 95 55 54 DO 58 40 
7450:FF FF FF FF FF FF FF AA E3 | 76F8:08 86 86 68 BO BO OG oO ) /168:FF PE FE FF 3D 3D 35 17 
7458:E5 E5 E5 EA AA FF FF AA 19 | 7700:00 06 68 BO BB BO BO OA 717IBsAA AA 9D 55 55 69 GA AA 
7460:BF BF BF BF AF FF FF AA 35 | 7708:00 O06 63 OF 3F FF AA 55 _— 7178:BF AF AF 7F SC 5C 54 B4 ¢ 
7468:F9 F9 F9 FA EA FF FF AA BD | 7710:3C FF FF FF FF FF AA 55 7180;8F 8F 8F BF 83 80 BB AA 
7470:6F 6F 6P AF AB FF FF AA DD | 7718:08 O06 CO FO FC FF AA 55 7168:FF FF FF FF FF 82 60 AA 
7478:80 CO E@ FO FS FC FE AA 6) | 7720:A@ AM AA AS AS AG AB AG 7198:F2 F2 F2 F2 C2 @2 22 AA 
7486:95 95 95 95 95 95 95 95 69 | 7728:00 686 AA 69 82 o8 Be oO 7198:82 B82 OB OB BO BO OB BA 
7488:05 @5 @5 55 55 55 55 5@ 26 | 7730:0A BA AA 5A 5A 9A 2A GA 71A8:99 A2 A2 AA 80H 2A 2A OB 
7499:56 56 56 56 56 56 56 56 79 | 7738:AS AOD AS AG AO AB AG AG 7IA8:Al Al 80 80 80 BO BB BO 
7498:89 68 66 OB BO GB BB BG 8). | 7746:98 BB BB BB BB BB BO Ad 71B0:3F 2A FF BF AD AF AB AQ 
74AG:09 66 BO GO OB OB GB GG 89 | 7748:G0A BA BA BA BA BA BA BA J1B8:BF AF AE GE 7D FF D7 AA 
74A8:45 45 45 55 55 55 55 5) 7F | 7750:00 G8 OO BO BB BO BG BO 71C@:BC AC BF 7E 7A FA FA 6A 
74B8:08 868 O2 G1 6) Bl B1 BO) FSB | 7758:55 55 55 55 55 55 55 55 71C8:30 3C OF OF OF OF OF OF 
74BB:20 20 22 AY AY 65 55 55 7B | 7760:408 40 40 40 40 40 40 40 71D8:0C OF OF 3F FO FC CF 83 
74C8:08 68 86 BB BO BO BG BB AD | 7768:AA 80 BO BO BO BB BB AA 71D8:03 GF @c CC FC FC FC 3C 
74C8:5B 5B 5B 5B 5B 58 5B 5B A5 | 7770:AA 09 OG BG BO BB OG AA 71E8:14 85 @5 @5 @5 G1 G1 BI 
74D8:C3 C3 C3 FF FF 3F 3F FF 88 | 7778:AA @2 @2 @2 O02 G2 O62 AA 71E8:D7 64 55 51 51 96 FF 55 
74D8:E5 E5 ES E5 £5 E5 E5 E5 Cl | 7780:009 96 68 @@ GA AA AS 55 71F6:14 580 58 50 50 40 48 42 
74EG:54 56 55 55 54 54 54 54 7A | 7788:60 @@ GA AA AS 55 51 55. 71F8:00 60 OO B88 BB BO BO BB 
74E8:681 AQ 55 55 55 55 55 55 BC | 7798:083 AA AS 51 55 45 55 55 72008:060 06 OO BA BO BB BO BO 
74P8:54 54 54 54 54 54 54 14 99 | 779g:ag AA 5A 55 15 51 55 55 7208:0F 32 62 83 63 OD 3F 3F 
| 74F8:00 66 68 B66 BB BOO BB BB El | 77Aa9:90 OG AB AA 5A 55 15 55 7210:DF 56 AA AB EF FD 57 FF 
| 7598:88 88 OO BB BB BB BB BB EA | 77A8:00 BO GB OG AG AA 5A 15 11 | 7218:CO FO BB BB BB CHO FC FC 
| 75608:02 61 @9 66 2B AF AF AA D7 | 77p9:98 BO BB G2 B) OB 27 BD | 7228:02 B82 83 O83 BD 35 15 15 
| 7518:5B 6D BD FD FD FF FF AA 36 7788:28 BE 7D D7 FF 7D D7 FF 7228:2A 80 AA EA FF 4C 55 75 
| 7518:6A 68 68 68 609 55 FF AA 68 | 77ca:66 68 86 86 46 EG DA 7E 7238:20 AQ BO FO D@ 5C 54 55 
| 7520:A9 29 29 69 B69 55 FF AA 28 77C8:02 68 88 BG OB BB BB GA 7238:0E 03 66 O03 3F 3F FF FF 
7528:E5 79 7E 7F 7F FF FF AA D2 | 77pg:AG BF BD BD 83 80 8¢ 89 | 7240:96 AA FF FF FF FF FF FF 
7538:809 49 68 909 ES FS FE AA 54 | 7708-08 @6 FO FO FO ge oe aa 7248:B8 C@ O88 CO FC FC FF FF 
7538:55 55 56 59 65 95 55 AA 5A | 77Fg:BF BF BF 6F 6F 5B 56 55 7250:02 65 17 55 57 5F 7F 7F 
7546:65 99 56 55 55 55 55 AA BO | 77E9:PF FF FF FF FF FF FE AQ 7258:55 96 69 D7 D7 7D FF FF 
7548:55 55 55 95 65 59 56 AA IF 7G. 7260:88 50 D4 55 DS F5 FD FD 
7558:55 55 56 59 65 95 55 AA 72 UU tec a rh Be =f i a of 7268:00 60 03 OF 3F F3 FB EB 
7558:65 99 56 55 55 55 55 AA DJ 7270:3C PF PP PF FF FF FF FP 
7566:55 55 55 95 65 59 56 AA 37 | Program 3: The Construction 7278:08 88 CO FO FC CF EF EB 
AA 
AA 
AA 





7638:AA BF BF BF 82 88 80 AA 20 | 70A8:80 88 8B AD AGB 18 18 58 B) 7350:7F 5F 17 @5 62 88 O86 B3 
7648:AA EB EB ES 28 28 28 AA 66 | 70B8:00 63 OD OD BD BOA OA 3F AB | 7358:FF FF FF FF BF 3F 7F D5 
7648:AA FE FE 22 62 82 62 AA 13 | 70B8:D5 55 55 55 55 AA AA FF 84 7360;:FD F5 D4 DB AB OB 40 FO 
7658:55 55 56 59 65 95 95 AA F4 | 78CO:55 C9 7A JA 78 AG AO FC FO | 7368:B9 AG 28 BA G2 AO A4 AG 
7658:69 96 55 7D FF 7D 55 AA 6D | 78C8:808 83 OF 3F 3F 38 30 38 8B 7370:FF FF FF BE AA 28 88 82 
7660:55 55 95 65 59 56 56 AA DJ | 76D8:FF FF FF FF 3F 3F @C @c cc 7378:0E OA 28 AG 82 BA JA YA 
7668:AA 95 95 95 B4 9C 90 AA FF | 7OD8:FO FC FF FF CF 83 983 63 @B5 7380:3C 3C OF 83 B88 BB BOB BB: 
7670:AA 55 4) 66 BO BO OM AA DA | 7OEG:80 OB BOB) BO5 15 55 55 14 EE 7388:AA AA AA EB AF BE BA AA 
7678:AA 56 56 56 1E 36 06 AA 8) | 78E68:15 55 55 55 55 55 55 14 68 7390:3C 3C FO CO BB BB BO BB 
7686:02 81 6) AY 55 55 55 55 69 | 7OF@:08 40 50 54 54 55 55 14 E7 7398:00 68 O68 OB BB BOO OA BA 
76868:AG@ 50 50 5A 55 55 55 55 89 | 7OFE:88 B88 BO BO BO BH BH BB DI 73A0:;08 A2 08 A2 O08 A2 8B BO 
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73A8:62 
73B88:55 
T3BS:AA 
73C@8:55 
73C8:25 
73D6:58 
73D8:80 
T3E@:2) 
73E8:69 
73F0:48 
73F8:00 
7490:09 
7498:0F 
7410:FE 
7418:A0 
7428:81 
7428:55 
7430:00 
7438:0E 
7440:BF 
7448:A8 
7456:0F 
7458:FF 
7460;:FC 
7468:A6 
7470:A6 
7478:9A 
7486:08 
7488 :AA 
7490:08 
7498:82 
74A9:908 
74A8:29 
74B6:A5 
74B8:69 


| 74C0:5A 


74CB: 08 
| 74D8:89 
74D8: 68 
74E6:17 
74E8:FF 
74F6:D5 
74F8:08 
7568:80 
7588:6F 
7518:903 
7518:Co8 
7520:05 
7528:4). 
7530:5F 
7538:FC 
7546:06 
7548:FP 
7556:00 
7558:3F 
7560:00 
7568:A6 
7570:A6 
7578:9A 
| 7586:0A 
758B8:AA 
7598:AG 
7598:08 
75A0:00 
75A8:08 
75B8:01 
75B8: 40 
75co i 50 
75C8:14 
75D8:56 
75D8:58 
75E6:63 
75E8:C3 
75F0:CO 
75F8:00 


| 7600:00 


7608:60 
| 7610:08 
7618:0808 
7628:06 
7628: 3F 
7636:08 
7638:60 
7648:08D 
7648:Cco 


B82 
55 
69 
55 
39 
58 
a0 
22 
69 
88 
ag 
ao 
OF 
FF 
FS 
aa 
28 
a0 
82 
FF 
Co 
3F 
FF 
FF 
AG 
AG 
9A 
OA 
AA 
AG 
he 
A2 
EY 
F5 
55 
SF 
80 
82 
58 
13 
FF 
D4 
a0 
a9 
3c 
a3 
CB 
5 
4) 
7F 
FO 
BG 
3F 
Bo 
3F 
O9 
AG 
AG 
OA 
a9 
55 
68 
oo 
30 
80 
01 
40 
5a 
55 
81 
58 
93 
C3 
ca 
a0 
ag 
aa 
aa 
ag 
ag 
FF 
ce 
88 
35 
PO 


Ba 
51 
69 
45 
G2 
56 
80 
22 
96 
88 
Ba 
a] 4) 
OF 
CF 


2 CO 


35 
25 
5c 
OF 
FF 
FO 
83 
FF 
FO 
B82 
A6 
B2 
BA 
AA 
A 
08 
5) 4) 
88 
54) 
86 
5) 4) 
Bl 
14 


pie 1s] 


B83 
C3 
ce 
ey) 
a) 4) 
3c 
a) 4) 


} FO 


O5 
4) 4) 
53 
3c 
i) 4) 
FC 
03 
FF 
FO 
80 
A6 
62 
5] 4) 
24) 
80 
B82 
Ba 
20 
@1. 
40 
98 
6). 
49 
69 
61. 
4) 
40 
4) ) 
Li}) 
62 
AA 
80 
4) 4) 
FB 
ce 
@D 
55 
coe 


8a 
5]. 
95 
45 
Oi 
95 
BO 
22 
AA 
88 
14) 
80 
OF 
CF 
Co 
D5 
55 
57 
JF 
FF 
FC 
54) 
FF 
ce 
Ag 
24 
OA 
09 
55 
60 
88 
ag) 
08 
B5 
55 
50 
04 
54 
98 
83 
C3 
ce 
a) 
i) 5) 
3c 
a) 
FO 
85 
a) 4) 
58 
3C 
414) 
FO 
OF 
F3 
FC 
AO 
i) 
28 
B2 
22 
20 
B2 
OO 
20 
1. 
40 
50 
18 
AS 
86 
81. 
4). 
40 
i) 5) 
Ba 
O82 
AA 
80 
a 
EA 
co 
aD 
55 
70 


AG 
=p 
69 
45 
4) 
95 
80 
22 
AA 
88 
OG 
14) 
OF 
03 
cea 
D5 
55 
57 
JF 
C3 
FC 
i} 4) 
FF 
ce 
AG 
88 
JA 
09 
55 
68 
88 
io] 
08 
5 
35 
5 
1) 
69 
93 
83 
C3 
co 
14) 
Ly) 
3c 
il) 
FO 
B5 
a) 4) 
50 
3c 
83 
FO 
OF 
F3 
FC 
BA 
O2 
80 
B2 
22 
208 
B2 
4) 4) 
20 
O81 
1 
40 
16 
16 
JO 
Ol 
41 
40 
Oo 
008 
B2 
96 
80 
FF 
FF 
FF 
BA 
AA 
Ag 


28 
5], 
55 
45 
14) 
te 
68 
57 


AA . 


C4 
il) 
iy) 
OF 
83 
co 
D5 
4) 
57 
JF 
83 
FC 
Li) 4) 
3F 
al) 
A6 
B2 
9A 
09 
wh 
68 
88 
14) 
68 
85 
=p 
590 
4) 
80 
58 
03 


C3 | 
ca 


ba 
a) 
a) 
5) 4) 
a) 4) 
5 
a) 
58 
JF 
83 
co 
O82 


88 


AG 
OM 
AS 
i) 4) 
a] 4) 
80 
Be 
4) 
86 


BO | 


O4 
O1 
4) 
O5 
68 
Od 
O85 
95 
58 
i) ) 
14) 
2A 
AA 
AG 
FF 
FFP 


FF 7 


A 
AA 
Ag 
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| 7658:00 


7658:14 
7660:00 
7668:04 
7670:4) 
7678:18 
7680: 0F 
7688:coa 
7690:FC 
7698:AG 
76A0:00 
76A8:0A 
76BO:FF 
76B8:FFP 
76CO:FF 
76C8:55 
76D60:59 
76D8:55 
7T6EQ0:AA 
76E8:AA 
T76FO:AA 
76F8:00 
7780:00 
7708:80 
7718:08 
7718:88 
7720:862 
7726: 20 
7738:286 
7738:088 
7740:AA 
7748:88 
7750:0A 


| 7758:AA 


77660:00 
7768:6C 
77786:C3 


| 7778:38 


7780:80 
7788:80 
7790:00 
7798:080 
77A0:0F 
7T7A8: 060 
77B0:0aCc 
7/BB:00 
77CO:0F 
77C8:15 
7700: 4) 
77D8: 58 
T7EO:098 
77E8:Co 
7/7/FO:0C 
77FS:08 


41) 


55 


a) 4) 
05 
41 
5 
B3 
a4) 
38 
FO 
a) 4) 
OF 
FFE 
BE 
FE 
55 
55 
55 
80 
4] 4) 
82 
Lo] 4) 
]4) 
B2 
AA 
BO 
28 
08 
86 
3) 
AA 
Le) 4) 
BB 
AE 
a) 4) 
OF 
C3 
FO 
3 
BO 
398 
Ba 
3F 
co 
JF 
6) 9) 
JF 
85 
41. 
58 
a) 4) 
Ci 
HC 
a1) 


5) 3) 


a1) 


AA 
80 
Bo 
82 
99 
88 
BA 
O2 
88 
08 
AA 
008 
OB 
EE 
a) 4) 
OF 
c3 
FO 
83 
14) 
38 
ag 
3D 
ca 
JE 
BO 
3B 
85 
4) 
98 
aa 


4) 


Oa 
4) 


Lo) 


Li) 4) 
82 
99 
8a 
82 
80 
Ag 
06 
AA 
88 
OB 
FE 
i] 
BE 
BA 
FO 
B3 
4)4) 
38 
83 
cc 
cc 
a) 4) 
80 
20 
5 
4). 
58 
03 
FO 
JF 
a ]4) 


Program 4: The Construction 
Set—Shapes Character Set 


See instructions in article on page 


39 before typing in. 


7000: 00 
7OOB:AA 
TOLO:AA 
TOLB:AA 
TO20:AA 
7TO28:AA 
TO30:AA 
78038:55 
7040:55 
7048:55 
7050:FF 
7O58:FF 
7060:FF 
7068:FF 
7O070:FF 
7078:FF 


| 7080:00 


76088:8C 
7696:60 
768098 :080 
7OAB: 20 
7O0A8: 00 
7O0BO:20 


1%) 
A@ 
4%) 
BA 


Ba 
AO 
00 
BA 
AA 


ae 
Ag 
00 
OA 


5) 4) 


1) 
AQ 
OO 
BA 


5) 4) 


BO 
Ag 
00 
BA 


FO 


E@ 
70 
FO 
7) 
1. 
89 
1] 





70B8;:0808 
78C8;: 92 
70C8:00 


| 78D8:84 


70D8:00 
7BHEO:08 


| TOE8:14 


70F0:90 
7O0F8:00 


| 71808:08 


7188:Aa 


| 71186:09 


7118:0A 


| 7120:AA 
| 7128:AA 
| 7130:AA 


7138:55 
71408:55 
7148:55 
7150:FF 
7158:FF 
7160:FF 
7168:FO 
7176:3c 
7178:0F 
7186:00 
7188:FF 
7198:CO 
7198:89 
71A9:65 
71A8:88 
71B8:26 
71B8:66 
71C6:66 
71C8:0A 
71D8:AE 
71DB:A8 
7T1E8:980 


| 71E8:14 


71LFO:80 
71F8:00 
7208:80 
7208:A0 
72108:088 
7218:0A 
7220:AA 
722B8:AA 
7230:AA 
7238:55 
7249:55 
7248:55 
7250:FF 
7258:FF 
7260:FF 
7268: FO 
7270:3C 
7278:0F 
72808:82 
7288:FF 
7298:CO 
7298: 96 
T2ZAG:9A 
72A8:58 
72B6: 26 
72B8:66 
72C0:66 
72C8:0A 
72D0:AE 
72D8:A8 
72E8:08 
72E8:14 
72F0:08 
72F8:00 
7308:00 
73808:55 
7310:55 
7318:55 
7320:FF 


| 7328:FF 


7338:FF 
7338:AA 
7T340:AA 
7348:AA 
7350:80 
7358:89 


5) 4) 


OF GE 








7360:82 
7368:090 
7370:0A 
7378:AA 
7380:AA 
7388 :AA 
739O8:AA 
7398:80 
73A0:00 
73A8: 80 
73B6:08 
73B8:088 
73C8:88 
73C8:00 
73D@:24 
73D8:00 
| T3E@:AA 
T3EB:AA 
T3FO:AA 
73F8:00 
7400:00 
7408:55 
7418:55 
7418:55 
7420:FF 


7428:FF 


7430:FF 
7438:AA 
7440:AA 
7448:AA 
7456:00 
7458:82 
7460:00 
7468:03 
7470:0A 
7478:A8 
7480;:FC 
7488:cc 
7490:FF 
7498:00 
74A0: 08 
74A8:55 


74BO:55 ° 


74B8: 88 
74C8:08 
7408: 2A 
~=74D8:A5 
| 74D8:54 
74E0:00 
T74E8:FF 
74FP0:00 
74F8: 80 
7500:00 
7508:55 
7510:55 
7518:55 
7520:FF 
7528:FF 
7530:FF 
7538:AA 
7546:AA 
75468:AA 
7558:82 
7558:00 
7560:88 
7568:00 
7570:0A 
7578:A8 
7586:FC 
7588:cc 
7590:FF 
7598:06 
75A60:55 
75A8:55 
75BO:55 
75B8:55 
75C8:00 
75C8:15 
75D0:5A 


75D8:A6 | 


75E8:69 
75E8:FF 
75FO0:00 
75F8:009 
7600:00 


FF 


a3) 


59 | 


40 





| 7608:FF 


7610:FF 
7618:FF 
7626:06 
7628:3C 
76308:80 
7638:Ce8 
7648:88 
7648:63 
7650:AG0 
7658:6868 
7660:0A 
7668:608 
7678:88 
7678:80 
7680:F6 
7688: 88 
7690: 0F 
7698:55 
76A0:55 
7T6A8:55 
76B98: 86 
76B8: 68 
76C6:62 


| 76CB:EE 


76D0:EE 
76D8:EE 
76E0:04 


, | 76E8:18 
| 7J6FP0:41 


76F8: 80 
77968:008 
7788:682 
7716:55 
7718:808 
7728:FD 
7728:55 
7738: 7F 
7738:D5 
7746:55 
7748:57 
7756:AA 
7758:AA 
7760:AA 
7768:89 
7770:60 
7778:02 
7788:55 
7788:7D 
7798:55 
7798:FF 
7J7AS:FF 
77A8:FF 
7T7BO:AA 
77BS8:AA 


| FICO: AA 
| 77C8:66 


77D8:66 


| 77D8:66 


77E8:8Cc 
77E8: 38 


| 77F8:C3 
77F8: 80 


B82 
35 
89 
15) 
FF 
Li) 
co 
1%) 
83 
AG 
1) 
BA 
14) 
5) 5) 
5) 5) 
5C 
io] 
35 
48 
BO 
B61 
86 
a] 4) 
82 
BB 
BB 
BB 
55 
35 
55 
i} %) 
Li} ) 
G2 
55 
8d 
FF 
55 
FF 
DS 
55 
a7 
Ag 
Oo 
BA 
88 
Oe 
O2 
55 
C3 
95 
Co 
5] 4) 
O83 
86 
OG 
82 
99 
99 
99 
gc 
38 
C3 
5) 5) 


EE 
EE 
EE 
04 
18 
41 


i} 4) 


Be 
62 
55 


BO | 


3F 
D7? 
FC 
DS 
35 
a7 
Ag 
3) 
BA 
20 
Oe 
08 
L.A 
4) 
D5 
cea 
514) 
03 
88 
4) 
B2 
66 
66 
66 
FF 
FF 
FF 
Be 


a] 


08 
Oo 
20 
57 
OO 
DS 
co 


1) 


03 
88 
5) 4) 
02 
99 
99 
99 
ac 
J0 
C3 
Le) 


a8 
ao 
20 
57 
a) 
D5 
40 
aa 
81 
80 
ao 
62 
BB 
BB 
BB 
a4 
10 
41 
ao 
ao 
82 
55 
ad 
a3 


FF oF 


cea 
co 
5) 4) 
B3 
A 
Bg 
BA 
6] 4) 
AA 
a) 4) 
5c 
OO 
35 
ce 
4) 
63 
88 
al) 
B2 
99 
99 
99 
FF 
FF 
FF 
4) 


a) 6) 
28 
a4) 
5C 
4) 4) 
35 
coe 
a ]5) 
63 
80 
4) 5] 
82 
66 
66 
66 
BC 
38 
c3 
88 


AA 
99 
99 
99 
6c 


38 J 


c3 
ag 


128 DOS Wedge 


See instructions in article on page 
42 before typing in. 


IAB@:AD 
JA@8:1A 
1A1@0:8D 
LA18&:¢C8 
1LA26: 4c 
LA28:D9 
1A30:6C 
LA3&:1A 
LA4@:CA 


| 1A48:@3 


IA58: 26 
1A58: 20 
1A60:38 
lA68:E8 
JA/6: 80 


84 
BE 
a4 
LA 
37 
DE 
cs 
68 
LA 
A 
68 
BA 
20 
AG 
03 


83 
C9 
3 
AE 
4D 
lA 
1A 
A8 
48 
gc 
FF 
FF 
c3 
1A 
FO 


AE 
1A 
8E 
c9 
AD 
FO 
98 
B9 
60 
20 
AY 
20 
FF 
De 
ll 


a5 
AQ 
5 
1A 
4) 
86 
OA 
CB 
BA 
BD 
OF 
ce 
4c 
4F 
cg 


83 
23 
a3 
20 
@2 
88 
48 
1A 
FO 
FF 
A2 
FF 
37 
A2 
22 


8D 
A2 
60 
18 
AB 
1@ 
20 
48 
20 
A2 
88 
AQ 
4D 
PF 
FO 


cB 
1A 
AD 
1A 
89 
F8 
6D 
B9 
A2 
5) 
A8 
OF 
A2 
26 
O4 


6F 
Ol 
F? 
35 
1F 
BE 
BS 
55 
6A 
De 
@5 
B5 
AD 
AE 
91 





lATJB:E8 
JA8@:04 
1AS8S: 9D 
1A99:68 
1A98:2A 
LAAS:FO 
LAAS: 26 
lABB:A2 
LABB:A2 
lACB:A9 
LACS: 68 
1ADO: 98 
lADB:Al 
LAES:24 
LAES:99 


83 


Bl 
E8 
FF 
o4 
EE 
AG 
2c 
8c 
3D 
4c 
1A 
1A 
1A 
5E 
1) 


BEFORE TYPING... 
- Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 


elsewhere in this issue. 


Vocab Builder 


Article on page 23, 


HR 5 SYS65517:IFPEEK(78) )=40TH 


ENPRINT"{WHT]}":GOTOLO 
KB 6 PRINT" {BLK}" 


RX 


):D=0 


PD 398 


EK 35 


PA 56 


22 
Ll 
2c 
708 


| 20 


7B 
9A 
68 
83 
ac 
C4 
6A 
93 
F5 
A7 





10 PRINTCHRS (1.4):DIMA%(100) 
»W$(100),D$(180),WRS(100 


PRINT" {CLR] {7 DOWN) [RVS] 
ENTER YOUR NAMELOFF}":IN 
PUTNMS: IFLEN(NMS )=@6THEN3 
a 
IFLEN(NMS)>)3THENNMS=LEF | 
TS(NM$,13) | 
PRINT" {CLRILRVS}"TAB(INT 
((22-LEN(NMS))/2)-1)NMS; 


""SlOFF}":PRINTTAB(3)" 
{RVS} VOCABULARY TEST 
(OFF}" 


PH 55 


WRS(Q)=""sNEXT: PRINTSPC ( 
9);"{2 DOWN}MENU":PRINTS 


KF 60 


0 


NS= oi ip :AS=" i :BS= Tmo | : DAS=" Vil 
:X%$=0:1=0:J=60:FORQ=1TO1O8 
B8:A%(Q)=8:WS(Q)="":DS(Q) 


PC(2);"{2 DOWN]1) ENTER 
{SPACE]NEW WORDS" 


JD 868 


Li had 


oc 


126 


130 
1468 


156 


160 
196 
230 


235 


250 


BH 260 


PRINTSPC(2)}"{DOWN}2) ST 
UDY YOUR WORDS":PRINTSPC 
(2);"{DOWN}3) TAKE A TES 


1866 PRINTSPC(2);:"{DOWN}4) E 
ND":PRINT"{2 DOWN} {RVST 


PRESS 1-4 TO CONTINUE 


{OoFF}" 
GETZ$:C$=Z$:V=VAL(ZS):I 
FZS=""OR(V<lORV>4) THEN) 


26 


IFV=4THEN] 9¢ 


INPUT"{2 DOWN] {RVS]D 
{OFF}ISK OR [RVSJT{OFF} 
APE"sZS:IFZ$<>"T"ANDZS< 
>"D"THENPRINT"{4 UP}":G 
OTO130 

AS="{LEFT] [22 SPACES]}": 


IFZ$S="D"THEND=]. 
ONVGOTO230,810,810 


END 
PRINT" {CLR} (6 DOWNJ ENTE 


R # OF NEW WORD 


INPUTX3 : LFX%> 1 GBORX%<1T 
HEN 230 


FORI=1TOX% 


PRINT" (CLR}{3 DOWNJENTE 
R WORD"I: INPUTWS (TI) 
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265 
278 
ite 


280 
308 


3198 
320 
330 
332 


346 
| 360 


386 
; 3909 
400 
420 
435 
440 
450 
476 


480 
490 
500 
510 
920 


940 


950 


560 
565 


576 


572 


575 


| 586 
599 
. 640 


81.8 


820 
876 


880 


890 


B95 


9110 





IFLEN(WS(1) )=@THENPRINT 
"{6 UP}":GOTO26a 

PRINT" {DOWNJENTER DEFIN 
ITION": INPUTDS (I) 
IFLEN(DS$(1))=@8THENPRINT 
"{[3 UP]}]":GOTO2796 

NEXT 

PRINT" {CLR)":PORI=) TOX$% 
PRINT" WORD"I"{LEFT}:"; 
WS(I) 

PRINT" {DOWN] DEFINITION 
:"DS(I):PRINT"{DOWN}" 
IF(1I/3)=INT(I/3)ANDX$=3 
THEN 366 
IF(1/3)=INT(1I/3)ANDX3 <> 
ITHENGOSUB 2000 

NEXT 

PRINT" [DOWN] LRVS}ANY CoO 
RRECTIONS(Y/N)? [OFF}™ 
GETZS:IFZS=""0R(ZS<> "yy" 
ANDZS <>"N")THEN388 
IFZS="Y"THEN426 
IFZS="N"THEN529 
I=0:INPUT"{CLR} {4 DOWN] 
WHICH ENTRY";I 
IFI=0ORI>X¢$THENPRINT" 
[4 UP]":GoT0422a 
PRINT" (2 DOWN]WORD"I" 
{LEFT}: ";w$(1) 

PRINT" { DOWN) DEFINITION: 
":DS(1) 

PRINT"{2 DOWN]ENTER WOR 
D"I:INPUTWS pe aa 
ws (I)=ws 
PRINT" { DOWN] ENTER DEFIN 
ITION": INPUTDS 
D$(I)=pDs 

GOTO308 

INPUT"{2 DOWN} TODAY'S 
ATE: ";DAS 

PRINT" {CLR} {8 DOWN] 
(5 SPACES} {RVS}PLEASE W 
AIT" 

PRINT" (2 DOWN) {RVS}I'M 
[SPACE]SAVING YOUR WORD 
S {oFF}T2 Downy" —~— 
NS="(EST "+DAS$ 
IFD=1LTHENNS="TEST "+DAS 
4" ,s,Ww" 

OPEN]. 5,8,15:OPEN1+D, 1+7 
*D, 14+D,N$: INPUT#15,A$,B 
$ 


Io 


IFAS="63"THENCLOSE(1+D) 
:CLOSE]5:GOTO526 
IFAS <> "@00"THENPRINTBS:F 
ORI=1T03000:NEXT:CLOSE( 
1+D):CLOSE]5:GOTO50 
PRINT4(1+D),X%:FORI=1TO 
XE 
PRINT#(14+D),WS(I):PRINT 
#(1+D),D$(1) 
NEXTL:CLOSE(1+D):CLOSE] 
5:GOTO50 
PRINT" {CLR} {DOWN} [RvS} 
A TEST MADE JUST FOR 
ToOFF}":PRINTTAB(INT( (22 
—-LEN(NMS))/2)-1)"{RVS}" 
NMS "(OFF)" 
PRINT"{2 DOWNJENTER THE 
TEST DATE ":INPUTDAS 
PRINT" {CLRJ{5 DOWN} 
{5 SPACES}|RVS]PLEASE W 
ALT" 
PRINT" |DOWNJ {2 SPACES} 
[RVS}LOADING THE WORDS 
{OFF]™ 7 
NS="TEST "+DAS 
IFD=1THENNS="TEST "+DAS 
+",S, R" 
OPEN]5,8,15:OPENI+D, 1+7 
*D,2*D,N$: INPUT#15,A$,B 


« 


a 
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902 
905 


91.08 


920 
930 
940 
959 
960 
976 
986 
1830 
1040 


1650 
1060 


1865 
1078 
1118 
1128 


1130 
1140 
1158 
1160 
1178 


1189 


1190 


1206 


1216 
1226 
1238 
1250 


1260 
1270 


1280 
1290 
1308 


1305 
1326 
1307 
1308 


1316 
1510 


1520 
1538 
1540 


1550 
1560 


1570 


1580 


1596 


1600 
1618 
1620 


IFAS="62"THENCLOSE]+D:C 
LOSE) 5:GOTOS81@ 
IFAS<>"00"THENPRINTBS:F 
ORI=] TO3000 :NEXT:CLOSE( 
14+D) :CLOSEI5:GOTO59 
INPUT#(1+D),X%:FORI=) TO 
Xd 
INPUT#(14+D),WS(I1) 
IFWS (I )=""THENGOTO9506 
GOTO960 
I=X%:GOTO970 
INPUT#(14+D),DS(I) 
NEXTI 
CLOSE(1+D):CLOSEI]5 
FORI=) TOX% 
AS=X8* RND (1 )+).:IFI=) TH 
ENA (I )=A%:GOTO1O7@4 
FORJ=) TOX4 
IFAG=A% (J )THENJ=X%:NEX 
T:GOTO104@ 
NEXT 
A%(I)=A%:NEXT 
IFCS="2"THENGOTO]5)@ 
PRINT" {CLR} [DOWN} [RVS} 
“*NMS:"'S QUIZ |[OFF}" 
N¢=0 a 
FORI=]1 TOX? 
PRINT"([2 DOWN}" 
N=A%(1) 
PRINT"DEFINITION: 
RINTDS(N) 
PRINT" |DOWN] ENTER THE 
{SPACE} WORD": INPUTWOS: 
LFWOS=""THEN118@ 
IFWOS=2WS(N)THENPRINT" 
{DOWN} CORRECT 1|";:FORZ= 
1TO1500:NEXT:GOTO] 2390 
PRINT" {DOWN}SORRY, THE 
WORD WAS:":PRINTWS(N) 
:FORZ=)T0)500:NEXT 
NS=N3+1 
WRS(N)=WS(N) 
PRINT" {CLR} ":NEXTI 
PRINT" {6 DOWN} YOU GOT" 
N%"WRONG":PRINT"OUT OF 
"X%:GOSUB] 900: IFN%=9TH 
EN2100 
FORI=)TO3000 :NEXT 
PRINT" {CLR} (2 DOWN} THE 
WORD(S) THAT YOU":PRI 
NT"GOT WRONG ARE:" 
J=1:PQ=0:FORI=1TOX$% 
IFWRS(I)=""THEN]310 
PQ=PQ+1:PRINT"{DOWN}"; 
WRS(T) 
IFPQ<>5*JTHEN] 310 
J=J+):PRINT" {DOWN} 
(RVSJANY KEY TO CONTIN 
UE[ OFF} ": POKE198,8 
GETZS:IFZS=""THEN]387 
PRINT" {CLR} ":NEXTI:GOT 
050 
NEXTI:GOSUB2000:GOTO5a 
PRINT" {CLR} ({RVS} HIT T 
HE BOOKS " 
N%=0 
FORI=) TOX$3 
PRINT" {2 DOWN}":N=A8(I 
) 
J%#=1:719=). 
PRINT" DEFINITION: 
RINTDS (N) 
WoS="":;PRINT" { DOWN] ENT 
ER THE WORD": INPUTWOS 
IFWOS=WS (N)THENPRINT" 
{DOWN ]CORRECT 1|":GOTO] 
790 
IFLEFTS (WOS, 2)=LEFTS(W 
S(N),2)THENGOTO1619 
GOTO168¢ 
IFJ) $>1THENGOTO] 759 
PRINT" (DOWN) YOU'RE CLO 


“= :Pp 


";:P 





| HH 


PX 


ca 


1639 
1646 


1650 
1670 


1686 
1699 


169) 
17608 
1719 
720 


1740 
175¢ 


1760 
1776 


1780 
17990 


1908 


1919 
1926 


1930 


1940 
1950 
1960 
1970 
2000 
2081 


26002 
2100 


SE":PRINT"TRY AGAIN" 
JI$=TJ)1 +1 — 
IFWS (N)=WRS(N)THENGOTO 
1670 
WRS (N)=wWS(N) 
PRINT"{2 DOWN}":GOTO15 
60 
IFJ%> 2THENGOTO] 750 
PRINT" [DOWN}SORRY, ";N 
MS:PRINT" YOU'RE NOT EV 
EN CLOSE":PRINT" [DOWN] 
TRY AGAIN" 
FORZ=1TO2500:NEXT: PRIN 
Tr’ {cLR}" 
PRINT"{2 DOWN) ":J%=d%+ 
] 
IFWS (N)=WRS(N)THENGOTO 
1740 
WRS (N)=wS(N) 
GOTO1560 
PRINT" {DOWN} SORRY, THE 
WORD WAS:":PRINT" 
{DOWN} "WS(N):FORZ=1T0O 
3006:NEXT: PRINT" [CLR}" 
IFWS (N)=WRS (N)THENGOTO 
1790 
WRS(N)=WS(N) 
Nt=eaN$+) 
PORTD=) TO) 500:NEXT: PRI 
NT" {CLR} ":NEXTI:GOTO) 2 
50 
IFN%=0THENPRINT" 
{2 DOWN} {RVS}GREAT JOB 
"+ RETURN 
N=1@-(N8/X8*I0) 
IFN<6.5THENPRINT" 
{DOWN] BETTER STUDY MOR 
E";RETURN 
IFN<8THENPRINT" LDOWN]A 
LITTLE MORE STUDY":PR 
INT" NEEDED" :RETURN 
IFN<OTHENPRINT" {DOWN}N 
OT BAD":RETURN 
IFN¢9.5THENPRINT" 
{DOWN]GOOD JOB":RETURN 
IFN<]L@THENPRINT"| DOWN] 
VERY GOOD" RETURN 
RETURN 
PRINT" {DOWN} [RVS] ANY 
[SPACE]KEY TO CONTINUE 
[2 SPACES)" 
GETMTS: IFMT$=""THEN200 
1 
PRINT" {CLR]":RETURN 
GOSUB2090:GOTO59 


BEFORE TYPING... 


| Before typing in programs, please 


refer to “How to Type In 
COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





64 Mode Speed-Up 


Article on page 44. 


XB 


18 PRINT" {CLR} {WHT}JSPEED UP 


- 64 MODE ONLY" 


26 FORI=49152T0492586: READX: 
C=C+X: POKEI,X:NEXT 
38 IFC¢>12470THENPRINT"DATA 


ERROR" : END 


48 SYS 49152 

58 DATA 120,173,105, 192,141 
, 18,208,173 

60 DATA 17, 208,41,127,141,1 


7, 


208,169 





RK 
OM 
EP 
5Q 
JA 
MX 
XX 
HP 
QD 
| MB 
EP 


FS 


1106 
120 
136 
148 
150 
160 
170 


188 


DATA 129,141, 26,208,169, 
192,168,32 
DATA J41,21,3,1408,208,3,8 


8,96 


DATA 173,25, 208,141,25,2 
08,41,1] 

DATA 208,3,76,49, 234,17 
3,18, 208 

DATA 205,106,192, 176,14 
,l72,106,192 

DATA 146,18, 208,169,0,1 
41,48, 208 

DATA 76,78,192,172,105, 
192,146,183 

DATA 208,169,1,141,48,2 
08,104,168 

DATA 104,170,104,64,120 
, 169,234,141 


DATA 21,3,169,49,141,20 
,3,169 

DATA @,141,48, 208,141, 2 
6, 208,88 


DATA 96,58, 258 


Printer Wedge 


Article on page 54. 


Program 1: Printer Wedge— 
Main Program 


ED 


AQ 


HJ 


10 


20 


308 


; 40 


5 


60 


70 


ag 


90 


5 1G 


116 
120 
L30 
L40 
156 
168 
178 
189 
198 
200 
210 
220 
236 


240 


BS=]358:S0=)]60:Sl1=32:bDe= 
209:D]1=81 :M=1:MF(0)=1:FO 
RJ=)1TO6:M=M*2:MP(J)=M:NE 
XT 
PRINTCHRS(147)CHRS(5)" 
{3 SPACES}PRINTER WEDGE 
{SPACE]CHARACTER DESIGNE 
R" 

PRINTCHRS(17)"MOVE WITH 
{SPACE]CURSOR KEYS" 
PRINT"PLACE DOT WITH F7" 
:PRINT"ERASE DOT WITH F8 


PRINTCHRS(17)"ASSIGN CHA 
RACTER WITH Fl" 
FORI=1T05:PRINTCHRS(17): 
NEXT:PRINT"ASSIGN CHARAC 
TER STRING WITH F3" 
PRINT"ACTIVATE WEDGE WIT 
H F2" 
CH=S0:FORI=0TO09:FORJ=0TO 
6:GOSUB]1@0:AR(I,J)=6:NEX 
TI:NEXTI 
l=0:J3=0:CH=S1:GOSUB110:G 
OTO1L48 
I=0:J=0:CH=S]:GOSUBI16: 
GOTO14a 
X=BS+1+7*40: POKEX, CH: PO 
KEX+54272,1:RETURN 
GETZ$: 1FZS=""THEN12e 
RETURN 
GOSUB120;: DC=0:REM 
ACTER EDITOR* 
IFZS=CHRS (29) THENDC=] 
IFZ5=CHRS (157) THENDC=2 
IFZS=CHRS (17)THENDC=3 
IFZ5=CHRS (145 ) THENDC=4 
IFDC>O9THENGOSUB370:GOSU 
8380 
ONDCGOSUB290, 310, 330, 35 
iy 


* CHAR 


GOSUB37@: IFDC>@ANDLC=S@a 
THENCH=S1:GOSUB]190 
IFDC>@ANDLC=DOTHENCH=D1 
:GOSUB1L1G@ 

IFZS=CHRS (136)THENAR(I, 
J )=1:CH=D1:GOSUB]1@ 
IFZ$=CHRS (148)THENAR(I, 
J )=@:CH=S1:GOSUBL1@ 





250 
260 


278 
2898 
290 
368 
318 
328 
336 
349 
3568 
360 
376 
388 
398 
480 
416 


426 


436 


440 


456 


460 
470 
480 


499 


380 


516 


920 


530 


540 


556 


560 


579 


580 


596 


6568 


616 


620 


636 


640 


650 


IFZS=CHRS(133)THEN410 
IFZS=CHRS (137)THENPRINT 
CHRS$ (147 )CHRS(17)"PLEAS 
E WAIT":GOTO660 
IFZS=CHRS(134)THEN550 
GOTO14@ 
I=I+) :IPFI>9THENI=0 
RETURN 
I=I-l:IFI<@THENI=9 
RETURN 
J=J+1:IFPJ>6THENJ=0 
RETURN 
J=J-1:IFJ<8THENJ=6 
RETURN 
LC=PEEK(BS+I4+J*48):RETU 
RN 
IFLC=S]THENCH=S@ 
IF LC=D1THENCH=D@ 
GOSUB11@:RETURN 
FORI=8TO09:REM *COMPUTE 
{SPACE} CHARACTER* 
CL(I)=128:FORJ=8T06:cCL{ 
T)=CL(I)4+AR(1I,7)*MF(J): 
NEXTJ :NEXTI 
PRINT"ASSIGN CHARACTER 
{SPACE]}TO WHICH KEY?" 
GOSUB] 20:2=ASC(2Z5):B=30 
68+2Z*10:REM *PRINT DATA 
STATEMENTS * 
PRINTCHRS (147)CHRS(17)cC 
HRS$(17)CHRS$(17)B"DATA"Z 
"{4 SPACES]": 
FORI=0TO9:IFCL(1I)=128AN 
DCL(I+] )=128THEN486 
PRINT", "CL(I)CHRS(157); 
:NEXTI 
PRINT: FORDX=1TO5:PRINT3 
600+2Z*10+DX:NEXT 
PRINT" RUN"CHRS(19);: 
J=1T03:PRINTCHRS (17) 
EXT 
FORJ=1T0]4:PRINTCHRS 
Rave ee ERLE, aces 
9 
IFI>OTHEN54@ 
PRINTCHRS (19);:FORJ=1TO 
3:PRINTCHRS(17);:NEXT 
FORJ=1T020:PRINTCHRS (32 
);:NEXT 


FOR 


POKE] 98, 9:FORI=8TO8: POK | 


E631+1,13:NEXT:END 
PRINTCHRS(147)"ENTER CH 
ARACTER STRING": INPUTAS 
: L=LEN(AS):IFL<lORL>39T 
HEN556 


PRINT"ASSIGN TO WHICH K | 


EY?":GOSUB]120:DX=0:Z=AS 
C(2$):1I=] :B=3000+2*10+D 
x 
PRINTCHR$(147)CHRS$(17)c 
HRS (17) CHRS(17)B"DATA"Z 
"{4 SPACES},15,17"::LX= 
2 

PRINT", "ASC(MIDS(AS,I,1 
))CHRS (157);:LX=LX4+l:I= 
I+] 

IFLX>9ANDI <=LTHENLX=6:D 
X=DX+1 :B=3000+2*10+DX:G 
OSUB658 

IFI <=LTHEN580 

PRINT: FORDX=DX+1T05:PRI 
NT 3000+2Z*16+DX:NEXT 
PRINT" RUN"CHRS(19);:FOR 
J=1T03:PRINTCHRS(17);:N 
EXT 
FORJ=1T014:PRINTCHRS (29 
); :NEXT:PRINT", "L+2 
PRINTCHRS (19) :POKE) 98,9 


> FORI=0TOS8: POKEG6G31+I1,13 


:NEXT:END 
PRINTCHRS (13) B"DATA"ASC 
(MIDS(AS,1I,1))CHRS(157) 


:N | 





JX 


SA 
GB 


AG 


PE 
XD 


BK 


CR 


FG 


SP 


CR 


JS 


RG 


JK 


SG 


CQ 


KM 
SD 
DD 


Qc 


GE 
AQ 
JP 
GD 
BD 


BD 
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660 


670 
680 


690 


780 
710 


720 


730 


740 


750 


7608 


776 


7868 


7908 


800 


810 


820 


8308 


846 


850 


BEd 


8708 
BBO 


B98 


980 


910 
9208 
9368 
940 


950 


960 


970 


988 
9998 


1000 REM 


;:LX=LX+]:I=I+1:RETURN | 
FORI=57344T057452:REM P 
OKE HI CODE 

READA: POKEIL,A:NEXT 
PRINTCHRS (147)" 

{2 SPACES}WHERE SHOULD 
{SPACE]PWEDGE BE LOCATE 
PRINTCHRS(17)"854 

[3 SPACES]= CASSETTE BU 
FPFER" 

PRINT"679({3 SPACES}]= UN 
USED RAM (MAYBE)" 
PRINT"49152 = RESERVED 
(SPACE]FOR ML PROGRAMS" 
PRINTCHR$ (17) "LOCATION 
{3 SPACES}854"CHRS$(157) 
CHRS$(157)CHRS(157)CHRS ( 
157 )CHRS(157); 

INPUTBA: FORI=BATOBA+59: 
READA: POKEI,A:NEXT 
IFBA=854THEN83@ 
P=BA+69:GOSUB996: POKEBA 
+10, L: POKEBA+1),, H: POKEB 
A4+49, L: POKEBA+59,H 
P=BA+6],:GOSUB998:POKEBA 
+13, L: POKEBA+14,H: POKEB 
A+52,L:POKEBA+53,H 
P=BA+62:GOSUB996;: POKEBA 
+] ,L:POKEBA+2,H: POKEBA+ 
55, L: POKEBA+56, H 
POKE57354,L: POKE57355,H 
t POKE57449, L: POKE57450, 
H 

P=BA+64 :GOSUB990: POKEBA 
+39, L: POKEBA+4@,H: POKES 
7489, L: POKE57418,H | 
POKE57425, L: POKE57426,H 
: POKE57437, L: POKE57438, 
H 
POKE57443, L: POKE57444,H 
P=BA+25:GOSUB990: POKES7 
395, L: POKES7396,H 

P=BA: GOSUB990;: POKE8@6, L 
: POKES887,H 

REM POKE CHARACTER DATA 
I=57601:CT=0:Z=1+256 
READC: IFC=@THENPOKEZ=25 
7,CT: POKEZ+255, @:GOTO91 
@ 

READL: IF (L+1+3 )>=ZTHENB 
90 


POKEI,C: POKEI+1, L: FORK= 
1TOL: READA: POKEI+1+K,A: 
NEXT: l=I+L4+2:CT=CT+1:Go 
TOBG6A : 
POKEZ-257,CT:CT=l:I=Z2:2 
=I+256: POKEI,C: POKEI+1, 
if 

FORK=] TOL: READA: POKEI+1] 
+K,A:NEXT:I=I+L+2:GOTOS 
60 
PRINTCHRS(147)"PWEDGE I 
S NOW INSTALLED." 
PRINTCHRS(17)"DO YOU WA 
NT A PRINTER TEST?" 
GOSUB]20:IFZS$<>"Y"THENE 
ND 
OPEN4, 4, 7: PRINT#4, "THE 
{(SPACE}QUICK BROWN FOX 
{SPACE]JUMPED OVER THE 
(SPACE]}LAZY DOG." 
FORI=33T064: PRINT#4, CHR 
S$(I);:NEXT:PRINT#4 
FORI=65TO96: PRINT#4, CHR 
$(1I);:NEXT: PRINT #4 | 
FORI=).93T02) 8: PRINT#4,C | 
HRS (1I);:NEXT: PRINT#4:CL 
OSE4 

END 
H=INT(P/256):L=P-H*256: 
RETURN 

*HI CODE* 





123 


BA 


DX 


RD 


| MQ 


SK 





1619 
1828 
1638 
168408 
1858 
1666 
1870 
1080 
1096 
11908 
1119 


1260 
1210 


1220 
1236 
1248 
1256 


1266 


DATA 172,8,225,192,0,2 
49, 32,162,1,173 

DATA 148, 3,221, 6,225,2 
40, 36, 232,138, 24 

DATA 125,@, 225,170, 232 
, 136, 208, 237, 238, 2 
DATA 224, 238,14, 224,23 
8, 22, 224, 208, 217,169 
DATA 225,141,2,224,141 
,14, 224,141, 22,224 
DATA 76,111,3,173,2,22 
4,141, 78, 224,14) 

DATA 79, 224,169,8,J41, 
150, 3, 232,189,8 

DATA 225,141,109, 224,1] 
60,1, 232,189,8, 225 
DATA 153,150, 3,232,200 
, 286, 1089, 224, 208, 243 
DATA 169,128,153,150,3 
, 208, 169,15, 153,158 
DATA 3,206,169,17,141, 
148, 3, 208, 186 

REM *LO CODE* 

DATA 141,148,3,165,154 
,201,4, 208,45, 142 


DATA 146, 3,140,147,3,1_ 


26,165,1,41,253 

DATA 133,1, 76,0, 224,16 
5,1,9,2,133 

DATA 1,88,192,0, 248,12 
,162,8,189,150 

DATA 3,32,202,24), 232, 
136, 208, 246,174, 1.46 
DATA 3,172,).47,3,173,). 
48,3, 76, 202, 24] 


16000 DATA @ 


2999 


38088 


381.08 


3820 


) 3036 


3646 
3650 
3068 
3076 
3086 
3696 
3106 
3110 
3126 
3136 
3146 


31.50 


Program 2: Character Set 1 


REM *NON PROPORTIONAL 
{SPACE]SPACED- G, P AN 
D Q MODIFIED* 


BB 3348 DATA 34,5,128,135,128, 


135,128, 71,5,136,212 


EP 3710 DATA 212,212,184,80,5, 
252,148, 148,148,136 
PR 3806 DATA 81,5,184,196,212, 


164,216 


Program 3: Character Set 2 


REM *PROPORTIONAL SPAC 
ED CHARACTERS WITHOUT 
{SPACE ] DESCENDERS* 
DATA34,4,128,135,128,1] 
35,39,3,132,1308 
DATA129,66,4, 255,196,] 
96,184,67,4,184 
DATA196,196,196,68,4,1 
84,196,196,255,69 
DATA4, 184,212,212,152, 
71,5,136,212,212 
DATA212,184,72,4,255,1]. 
36,132,248,73,3 
DATAL96, 253,192,74,4,1 
60,192,192,189,75 
DATA4, 255,144,168,196, 
76,3,129, 255,192 
DATA77,7,252,132,132,1 
84,132,132,248,79 
DATA4, 184,196,196,184, 
80,5,252,148,148 
DATA148,136,81,5,184,1 
96,212,164, 220,82 
DATA4, 252,136,132,132, 
86,5,156,160,192 
DATA168,156,87,7,188,1 
92,192,184,192,192 
DATA252,89,4, 204, 208,2 
08,188, 28),3,193 
DATA255,193,205,7,255, 
130,132,152,132,13@ 
DATA255,215,7,255,160, 
144,148,144,160,255 
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Program 4: Character Set 3 


FR 


HC 
HM 
FS 
PQ 
MD 


SQ 


3006 


3818 
30206 
38308 
3848 
3050 
3060 
3870 
3080 
3090 
3180 
3118 
3120 
3138 
3146 
3156 
3160 
31768 
31896 
3196 
3206 
32190 
3226 
3230 
3240 
3258 
3266 
3276 
3280 
3296 
33090 
33190 
3326 
3336 
3340 
3350 
3368 
3376 
3380 


3390 


REM *PROPORTIONAL SPAC 
ED CHARACTERS WITH DES 
CENDERS* 
DATAl7,5,129,133,148,2 
98,192,33,1,175 
DATA34,3,135,128,135,3 
7,6,163,147,136 
DATA132,178,177,39, 3) 
32,138,129,4G,3 
DATA14G,146,161,41,3,1 
61,146,1408,44,2 
DATA192,176,46, 2,176,). 
76,47,6,168,144 

DATA) 36,132,1308,129,48 
,4,158,169,165,158 
DATA49, 3, 162,191, 169,5 
6,4,162,177,169 
DATAlL66,51,4,146,161,1 
65,154,52,4, 140 


DATA1L38,137,191,53,4,1 | 


67,165,165,153,54 
DATA4,158,169,169,144, 
55,4,177,137,133 
DATA131,56,4,154,165,1 
65,154,57,4,134 
DATA169,169,158,58,1,1 
48,59,2,192,180 
DATA6@,4,136,148,162,1 
62,6),4,148,148 
DATA148,148,62,4,162,1 
62,148,136,63,5 
DATA139,129,217,133,13 
8,65,5,152,164, 164 
DATA156,160,66,4,191,1 
64,164,152,67,4 
DATA152,164,164, 164,68 
»4,152,164,164,191 
DATAG9,5,152,172,172,1 
72,136, /8,4,1998 
DATA137,129,139, 71,4,1 
36, 212,212,184, 72 
DATA4,191,132,132,184, 
73,2,189,160, 74 


DATA4, 160,192,192,189, 


75,4,191,136,148 


DATA1L68,76,3,129,191,1 


60,77,7,188,132 
DATA132,184,132,132,18 
4,78,5,132,184,132 
DATA132,184,79,5,152,1 
64,164,164,152,88 
DATA4, 252,148,148,136, 
81,5,136,148,148 
DATA248,192,82,4,188,1 
36,132,132,83,4 
DATA200, 212, 212,168,84 
13,132,198,164,85 
DATAS, 156,169,165,156, 
168,86,5,140,144 
DATAL66,144,1408,87,7,1 
88,160,160, 156, 1698 
DATAL68,156,88,5,164,1 
48,136,148,164,89 
DATA4, 140, 208, 288,188, 
90,4,164,188,172 
DATA164,193,5,156,162, 
161,159,160,194,4 
DATA1L91,165,165,186,19 
5,4,156,162,161,16] 
DATAL96,5,191,161,161, 
162,156,197,4,191 
DATA165,165,161,198,4, 
191,133,133,129,199 
DATAS,156,162,169,169, 
144,200,4,191,132 
DATA132,1.91,201,3,161, 
191,161,202,4,144 
DATA160,161,159,263,4, 
191,132,138,177, 264 
DATA4,191,160,1608,160, 





3406 
3418 
3426 
3430 
3446 
3458 
3460 
3476 
3488 


3496 


285,7,191,129,129 
DATA142,129,129,190,20 
6,5,129,198,129,)29 
DATAL9@,207,4,158,161, 
161,158, 298,4,191 
DATA137,137,134,209,5, 
156,162,169,145,174 
DATA210,5,191,137,137, 
158,168,211,4,162 
DATA165,165,152,212,5, 
129,129,191,129,129 
DATA213,5,159, 160,160, 
159, 160, 214,5,143 
DATA]144,160,144,143, 2) 
5,7,159, 160, 166,156 
DATA]160,160,191,216,5, 
177,138,132,138,177 
DATA217,5,129,130,188, 
130,129, 218,5,16) 
DATA]77, 169,165,163 


Program 5: Graphics To Text 
Conversion 


CE 360060 


3816 
3926 
38390 
3046 
3850 
36868 
3676 
3986 
3696 
31086 
31186 
31.28 
3139 
3146 
3159 
3168 
3178 
31,88 
3190 
3200 
3219 
3220 
3238 
3240 
3258 
3268 
32708 


3280 


REM *CHARACTER STRINGS 
FOR CONVERTING GRAPHI 
CS SYMBOLS TO TEXT* 
REM *WHEN PRINTING A L 
ISTED FILE* 
DATA5,7,15,17,91,87,72 
,84,93,17 
DATA8,15,17,91,68,79,8 
7,78,93,18 
DATA7,15,17,9),82,86,8 
3,93,19,8 
DATAL5,17,91,72, 79477, 
69,93, 28,7 
DATAI5,17,9).,82,69,68, 
93,29,9,15 
DATAJ7,91,82,73,71],72; 
84,93,30,7 
DATAI15,17,91,71,82,78, 
93,31,7,15 
DATA17,91,66, 76,85, 93, 
129,7,15,17 
DATA9], 60,49,62,93,133 
,6,15,17,91 
DATA70,49,93,134,6,15, 
17,91,78,5) 
DATA93,135,6,15,17,91, 
78,53,93,136 
DATA6,15,17,9),708,55,9 
3,137,6,15 
DATAL7,91,70,50,93,138 
,6,15,17, 9) 
DATA7@,52,93,139,6,15, 
17,91,70,54 
DATA93,148,6,15,17,91, 
70,56,93,144 
DATA7,15,17,91,66, 76,7 
5,93,145,6 
DATAJ.5,17,91,85,88,93, 
146,7,15,17 
DATA91, 79,70, 708,93,147 
,7,35,17, 9) 
DATA67, 76,82,93,149,7, 
15,17,91,60 
DATA5@,62,93,1508,7,15, 
17, 91,60,51 
DATA62,93,151,7,15,17, 
91,60,52,62 
DATA93,152,7,15,17,91, 
60,53,62,93 
DATAI53,7,)5,17,91,60, 
54,62,93,154 
DATA7,15,17,91,60,55,6 
2,93,155,7 
DATAJ.5,17,91,608,56,62, 
93,156,7,15 
DATA17,91,80,85,82,93, 
157,8,15,17 
DATA], 76,69, 70,84, 93, 





158,7,15,17 


SQ 3290 DATA9),89,69,76,93,159 


ma JP nip te rine a 
RH 3300 DATAG?7,89,78,93 


BEFORE TYPING... 





Before typing in programs, please 


refer to “How to Type In 


COMPUTE!’s GAZETTE Programs,” 


elsewhere in this issue. 





Hi-Res Print 


See instructions in article on page 
24 before typing in. 


Program 1: HRPRINT 


CO00:20 
|} CBBB:Ce 
COlLOA:CE 
C818: 8D 
CO20:28 
C@28:8D 
CB30:82 
C838: 900 
C@40:51 
C@48:83 
CO50:F) 
CO58: 20 
c#60:DD 
C#68:08 
| CO7O8:64 
| CO78:64 
|} CBB8:C8 
CO88:FB 
CO9O:F6 
CO98:FA 
COA®:AD 
COAB:FC 
COBS: 34 
COBS:FD 
COCO8:FB 
COCB:FC 
CODG: 68 
C@Dps:85 
CBEG: B83 
COES8:FD 
COFOA:AD 
COFP8:83 
Cl100:FB 
C168:18 
C1l198:FC 
C118:8D 
Cl20:FA 
C128:6D 
C130:83 
C138:38 
C140:00 
C148:40 
C158:09 
C158:68 
C168:AD 
C168:FC 
C178:6D 
C178:83 
C180:FF 
C188:F8 
C198:83 
| C198: 85 

CJA9:63 
C1lA8:85 
C1B9:Dd 
C1B8:85 
c1ceé:ce 
C1C8:8D 
C1D@:8D 


Fl 
26 
Bl 
FA 
89 
FD 
A5 
AY 
De 
29 
B? 
9E 
BD 
FO 
ce 
B85 
Bl 
99 
AQ 
AD 
34 
20 
B3 
3 
90 
03 
AD 
FC 
6D 
O3 
FC 
8D 
AQ 
AD 
83 
FD 
B2 
FB 
8D 
83 
DO 
90 
38 
eal 


B7 
FD 
AS 
O2 
co 
O2 
64 
Bo 
FS 
Fl 
8E 
AD 
AG 
26 
20 
82 
64 
A7 
A7 
13 
03 
B5 
4C 
8D 
83 
CA 
35 
26 
FC 
6D 
03 
FF 
08 
FC 
AD 
83 
8D 
2 
a7 
Ag 
Bl 
15 
EY 
38 
03 
B5 
B2 
FD 
F9 
18 
FD 
1a 
FB 
Bl 
Ac 
A9 
AD 
3 
83 


SE 
AE 
65 
AS 
8D 
20 
8D 
99 
20 
B7 
35 
A5 
ae 
99 
A3 
C8 
85 
B2 
B85 
83 
85 
ce 
D1 
FC 
18 
DOB 
@3 
B5 
83 
FD 
8D 
83 
85 
03 
FD 
18 
FC 
8D 
83 
FF 
60 
cg 
49 
E9 
85 
co 


13 
20 
60 
64 
FC 
09 
FF 
A7 


83 
SE 
20 
8D 
B2 
co 
82 
62 
B7 
36 
26 
DB 
a ]) 
B2 
Ag 


C1D8:FE 
ClEO:FF 
ClES:61 
ClFO:4Cc 


| CLF8:18 
| C200:03 


C208:03 


O82 
82 
DE 
F6 
AY 
AQ 
4c 


85 
85 
88 
Cr 
o8 
Oo 
3c 


FB 
FC 
AD 
AD 
6D 
6D 
eu 


AD 
AD 
34 
34 
a7 
38 
06 


FD 
i 
03 
03 
83 
83 
1) 


03 
B3 
nal 
91 
8D 
8D 
a) 4) 


AS 
EE 
c& 
38 
E2 


69 | 
ch 





Program 2: CHARSETMAKER 


JS 
BG 


MG 


AS 


QD 


1898 
116 


126 


130 


140 
1508 


166 
170 
180 
198 


200 


210 
220 
230 
240 
2508 
260 


276 


280 
296 


3008 
310 


320 
336 
349 


35d 
368 
378 
386 


396 
490 


416 
426 
430 


446 
456 


REM CREATE CHARACTER SE 
T FOR 

REM ‘HI-RES PRINT’ 
OUTINE 

PRINT CHR$(142):REM USE 
CHR$(14) FORL2 SPACES] 
LOWERCASE 

PRINT CHR$(8):REM DISAB 


ML R 


LE CASE CHANGE FROM KEY 
BOARD 
INPUT "LOCATION OF CHAR 


ACTER SET";:N 

A=N-INT (N/256)*256: B=I 
NT(N/256) 

INPUT "“FILENAME";FS$ 

IF LEN(FS)=@ THEN 160 
PRINT "WORKING..." 

REM COPY FIRST 64 CHARA 
CTERS FROM ROM CHARACTE 
R SET 

POKE 56334, 
AND 254 
POKE 1, PEEK(1) AND 251 
FOR J=@ TO 511 

POKE J+N, PEEK(53248+, ) 
NEXT J 
POKE J, 
POKE 56334, 
OR 1 
CLOSE 15:OPEN 15, 
; 1 T 4) Li] 

GOSUB 416 

OPEN 2, 8, 2, FS + 

W if 

GOSUB 419 

PRINT#2, CHRS(A);:PRINT 
#2, CHRS(B); 

GOSUB 419 

FOR J=@ TO 511 

PRINT#2, CHRS(PEEK(J+N) 
ye 

NEXT J 

GOSUB 410 

CLOSE 2:CLOSE 15 

PRINT CHRS(9):REM ENABL 
E CASE CHANGE FROM KEYB 
OARD 

END 

REM CHECK DISK DRIVE ER 
ROR STATUS 
INPUT#15, EX, EXS, TR, SE 
IF EX=@ THEN RETURN 


PEEK(56334) 


PEEK(1) OR 4 
PEEK(56334) 


8, 15 


neke 


PRINT CHRS(18) “DISK ER 
ROR" 

PRINT EX; EX$:TR;SE 

GOTO 370 


Program 3: Demo 


KB 
EQ 


DP 
HD 
HC 
SA 
JG 


RK 


100 
116 


126 
136 
149 
158 
166 


172 


REM 'HRPRINT' DEMO 

IF A=6 THEN A=1: LOAD 
RPRINT", 8, 1 

IF A=] THEN A=2:LOAD 

RCHARSET", 8, 1 

POKE 53289,15 

REM SET SYS ADDRESSES 

IN=49152: PR=49207 

REM BI ARRAY IS USED 
DRAW CURVE 

FOR J=8 TO 7:BI(J)=2fd: 

NEXT 


"H 


"H 


TO 





186 
198 
266 


216 
226 


239 


24G 
258 
260 
276 


260 
2968 


360 


318 
326 
336 
348 
358 
360 
376 
388 


398 


400 
416 


426 


430 
440 
456 
460 
476 
489 
490 
500 
5168 
520 
538 
540 


550 


REM BITMAP AT 8192 
BASE=8192 
POKE 53272, PEEK(53272) 
{[SPACEJOR 8 
REM HI-RES 
POKE 53265, 
OR 32 
REM INITIALIZE MULTI/RV 
S(2),BITMAP AT 8192,CHA 
RSET AT 16384, COLOR AT 
[SPACEJ1624 
SYS IN, 2, 
1924 
REM CLEAR SCREEN 
AW CURVE 
FS="":FOR J=l1 TO 46:FS= 
FS+CHRS (32):NEXT 
FOR J=0 TO 24:SYS PR, 1 
5, @, J, FS:NEXT 
FOR Y=0 TO 199 STEP .5 
X = INT(166+46 * SIN(Y/ 
18)) | 
BY = BASE+4@ * (Y AND 2 
48) + (Y AND 7)+(X AND 
[SPACE]504 ) 


PEEK (53265) 


8192, 16384, 


AND DR 


POKE BY, PEEK(BY) OR (B 
I(NOT X AND 7)) 
NEXT Y 


REM INITIALIZE HIRES (1) 
,BITMAP AT 8192, CHARSET 
AT 16384,COLOR AT 1024 


SYS IN, l, 8192, 16384, 
1024 

REM PRINT MESSAGES ON H 

I-RES SCREEN 

SYS PR, 6, l, 1, “PRINT 
HR DEMO" 

SYS (PR 027) L227) OC} 2 

987 COMPUTE!" 

SYS PR, 1, 17,21; “HIT 
ANY KEY TO EXIT" 

SYS PR, 8, 17, 5, "YOU 


[SPACE}CAN PRINT NORMAL 
LY” 
REM INITIALIZE FOR REVE 
RSE 


SYS IN, 2, 8192, 16384, 
1024 
SYS PR; 5, 1%, 13, “OR 


[SPACE}IN REVERSE LETTE 
RS i 


REM NORMAL CHARACTERS A 

GAIN 

SYS IN, 1, 8192, 16384, 
1624 . 

SYS PR, 14, 2, 9, "TIME 

R:" 

SYS PR, 14, 2, 1/7, "SCO 

RE:" 

REM UPDATE SCORE AND TI 

MER 

FOR J=8 TO 10069 

SYS PR, @, 8, 9, TI 

SYS PR, 8, 8, 17, J 

GET X5 


IF X$="" THEN NEXT J 


REM BACK TO NORMAL TEAT 
SCREEN 

POKE 53265, 27:POKE 5327 
ape. 


PRINT CHRS(147):END 


Program 4: Relocator 


KJ 160 
PJ 118 
CA 120 


QS 130 
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REM THIS PROGRAM RELOCA 
TES THE 

REM 'HRPRINT' ML ROUTIN 
E AND WRITES | 
REM THE RELOCATED CODE 
LSPACEJTO DISK 

IF A=@ THEN A=1:LOAD "H 
RPRINT",8,1 





125 


Article 


FG 108 


118 


FM 126 


RK 1.30 


JG 140 





KE 158 


INPUT "NEW LOCATION FOR 
HRPRINT";N 
INPUT "NEW FILENAME FOR 


HRPRINT";FS 
A=INT(N/256):B=N-256*A 
PRINT "WORKING..." 
CLOSE 15:OPEN 15,8,15," 
Ig" 

GOSUB 4190 
OPEN 2, 8, 2, 
w" 

GOSUB 419 
PRINT #2, 
yr 

GOSUB 419 
FOR J=49152 To 49675 
P=PEEK (J) 

IF P<>76 AND P<>1@8 AND 

P<>32 THEN PRINT#2,CHR 
S(P);:NEXT J 
Z=PEEK (J+2 ) 

IF Z2<192 OR Z>194 THEN 
[SPACE}PRINT#2,CHRS(P); 
:NEXT J 
X=49152-N 
Y=PEEK(J+1) 

A=Y+Z*256-X 
Z=INT(A/256) 

Y=A-256*Z 

PRINT#2, CHRS(P);CHRS(Y 
);CHRS(Z); 

J=J+2 

NEXT J 

PRINT “NEW SYS VALUE FO 
R “IN s "si 

PRINT "NEW SYS VALUE FO 
R 'PR':";N+4+55 

CLOSE 2:CLOSE 15:END 
REM CHECK DISK DRIVE ER 
ROR STATUS 

INPUT#15,EX,EXS,TR,SE 
IF EX=@ THEN RETURN 
PRINT CHRS(18) “DISK ER 
ROR" 

PRINT EX;EXS$;TR;SE 
GOTO 39a 


ES 7 Py 


CHR$(B);CHRS(A 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
| COMPUTE!’s GAZETTE Programs,” 
elsewhere in this issue. 





Power BASIC: 128 
Instant Keywords 


on page 43. 


PRINT" {CLR} ":S=INPUT( "J. 
300"):=(B})15:FORD=STOS+ 
176:READ AS:POKE D, INPU 
T{AS):NEXT 
M=S+22:V%=M/256:V=M-256 
*V%:POKE S+]12,V%:POKE S 
+14,V:M=D-52:V3=M/256:V 
=M-256*V% 

POKE 5+65,V%:POKE S+64, 
V: SYS(S):PRINT" 

[2 DOWN| ([RVS] [WHT] INSTA 
NT KEYWORDS ACTIVATED! 
PRINT" {DOWN} {RVS]}TO DE/ 
ACTIVATE SYS"S:NEW 

DATA A9,C8,CD,37,63,F6, 
64,A2,05,D0,04,A9,13,A2 
,16,8D,37,03,8E, 36 

DATA 63,60, EA, 48,A6,F4, 
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AR 166 


QA 176 


EE 189 
MK 198 
BH 206 
218 
QD 220 


KQ 230 


FO,84,68,4C,85,C8,A4,D4 
,AD, 3E, 83, 85, 24, AD 
DATA: 3F,03,85,25,Bl,24, 
FA, 38,E9,41 

DATA c9,JA,B@,E6,A2,02, 
E4, D3, DO, 62,69,19,A8,B9 
,7D,1.3,C9,27,B8, 99 

DATA 69, 7E,AA,A0,609,A9, 
46,D6,05,AA,A0,17,A9,44 
,84, 24,85, 25, AG, OO 

DATA CA,1@,@F,B1l, 24,48, 
E6, 24, D0, 02, E6, 25, 68, 10 
,F4,30,EF,C8,Bl, 24 

DATA 30,05, 20,9C, 56, D0, 
F6, 29, 7F, 20,0C, 56, 68, 60 
, EA, OB, 18,C7, 6D, D5 

DATA 81,89,D2,85,CF,ES, 
EC, CA, 82,A3,99,E3,8E,97 
,A7,FB,87,FD, 97, DE 

DATA C8,C4,19,E7,@6F,60A, 
93,8D, D1, D4,84,E0,E6, 86 
,17,A6, DF, E4, 8C, DA 

DATA @5,FC,83,1A,C2,E2, 
c9 


Program 2: 


GA 18 
EF 26 


GOTO38 
REM **PLACE KEYWORD HERE 


“* 


AG 36 


=(B}15:B=PEEK(45)+]12+PEE 


K(46)*256: PRINT" KEYWORD 


{ 


SPACE]VALUE(S) = "; 


Pc 40 H=PEEK(B):PRINTRIGHTS (DI 
M(H) ,2)3" "3 
AE 5@ IFH=2540RH=206THENB=B+t1: 


GOTO46 


DOS Calc 


See instructions in article 


on page 


31 before typing in. 


@801:0B 
8809: 3) 
OS11L:A9 


| 6B819:A9 


@821:B1l 
G829:FE 
6831:coe 
0839:09 
6841:08 
0849:FF 
O851:FF 
9859:62 
8861:D2 
6869: 208 
G@B71L:E9 
8879:FB 
O8881l:Ac 
8889:8C 
6891:c3 
8899:BD 
@88A1:FC 
B8A9: 82 
68B1:43 
B88B9:4E 
68C1:44 
gac9a:59 
O8D1:4F 
88D9:43 
O8E1:56 
BBES: 45 
GB8F1:52 
OBF9: BO 
9901:08 
6909:43 
8911:49 
6919:49 


| 6921:00 


6929:52 
0931:4E 


38 
A2 
85 
85 
F9 
4c 
co 
4D 
33 
3A 
AD 
BE 
A2 
Co 
38 
a0 
265 
20 
oF 
20 
C2 
55 
4D 
54 
AF 
a6 
4c 
53 41 
41 
45 
56 
43 
45 
4) 
49 
SA 
45 
2ZE 
44 


68 
a) 





0939:53 
8941:41 
6949:52 
6951:DA 
§959:67 
0961:54 


B969:2C C: 


6971:606 
0979:00 


6981:B0 


g8989:Ccl 
6991:6B 
0999:78 
89A1:92 
89A9:6F 
89B1:38 
09B89:6E 
89C1:008 
89C9:AE 
89D1:28 
89D9:A9 
O69E1:A9 
89E9:68 
G69F1:FB 
H9F9:F6 
GA81:18 
BAG9I:A9 
@A11:BE 
BA19:AD 
G@A21:20 
8A29:EE 
G@A31:B1 
GA39:C8 
8A41:CA 
BA49:FE 
8A51:C2 
BA59:A5 
BA61L:E6 
BA69: 28 
@OA71:7E 
8A79: 20 
BAS1:C)1 
@A89: 8D 


OA91:6F « 


BA99: 8D 
BAA1L:02 
BAAS: 20 
BAB1:85 


| MOABS:A2 


BACL:F9 © 
BAC9:A5 
@AD1L:AA 
GAD9:6A 
HAE1:60 
BAEQ:AA 
@AF1:75 
BAF9:C1 
OBO1L:A7 
@0B869:18 
0811:6C 
OB19O:FF 
O8B21:F5 
O8B29:0A 
0B31:CE 
BB39:FO 
0B41:85 
0B849:0c 
0851:84 
OB59:FF 
8B861:39 
8B69:D5 
8B71:BD 
BB79:FE 
OBS1:Fe 
8BB9:A9 
0B91:bD2 
0899; 3E 
O8BA1:aC 
OBA9: 8B 
O8BB1: BA 
BBB9: 4F 
O@BC1:54 
O08C9:45 
@BD1:45 
O8BD9: 4B 








O@BE1:590 
OBES: 4F 
OBBF1:26 
OBF9: 20 
0C01:43 
8CO9:48 
0C11:47 
0019: 45 
0C21:45 
0C29: 4F 
0C 31:53 
6C39:49 
68C41:45 
6049: 41 
6C51:45 
@C59:52 
8C61:00 
8C69:58 
0C71:43 
8C79:988 
0C81:55 
6C89: 4D 
8C91:3A 
8099:4c 
@CA1:54 
O8CA9: 4C 
O8CB1:53 
OCB9:5A 
8CC1:4E 
8CC9: 88 
HCD1:60 
O8CD9: Bo 
68CE1:43 
8CE9: 4B 
OCF1:53 
OCF9:AE 
O8DG81:F8 
@D89:53 
@D11:77 
8D19:97 
8D21:BF 
@D29:A2 
@D31:A2 
@D39:Cc3 
0D41:38 
0D49:13 
OD51:A9 
| 6D59:6D 
| @D61:82 

8D69; 8B 
OD71:7A 
98D79:66 
@D81: 63 
O8D89:CB 
O@D91:F1 
0D99:C3 
O@DA1: 206 
OBDAS: 20 
O8DB1:Cc9 
@DB9: 5E 
ODC1:DD 
ODC9: 2E 
OHDD1: 68 
OHDDI:C4 
O8DE1:B1 
ODES: 7D 
ODF1:6A 
ODF9:BD 
BEOB1:Cc7 
@EO9:87 
G8E11: 8F 
BE19: 26 
8E21:28 
8E29:C6 
G8E31:208 
§E39:24 
BE41:1¢c 
BE49:A9 
G8E51:6B 
8E59:C6 
BE61:AC 
8E69:99 
BE71:20 
8E79:8D 
BE81:Cc7 


57 
4E 
58 
4F 
4] 
4E 
aa 
Li) 4) 
22 
45 
4E 
45 
54 
47 
2D 


44 


4F 
2F 
3A 
La) 4) 
54 
53 
49 
a1 
FF 
57 
4¥ 
52 
57 
aa 
86 
Ba 
45. 
4D 
35 
BF 
04 
5B 
88 
9c 
TE 
78 
20 
E9 
FB 
61 
Ag 
C4 
CF 
C4 
C4 
AD 


AQ 4 


Ol 


AS 


48 
C2 
Cl 
BO 
64 
B4 
EY 
AO 
6 
BC 
98 
BD 
c4 
CA 
Bo 
26 
20 
PP 
OB 
C7 
AC 
12 
99 
28 
28 
C6 
C6 
cr 
C6 
C4 


5) 4) 


81 





8E89:18 
BE91:Cc5 
BE99:C7 
G8EA1:18 
BEA9:C5 
BEB1:C2 
BEB9: O61 
BEC1:2E 


BEC9: 38 


BED1:C6 


| BED9:C6 


HEE1:99 


| BEE9:C7 
| BEF1:D9 


BEF9:A9 
BFO1:26 
BFO9:B9 
6F11:D6 
O8F19:D9 
OFP21:A2 
OBF29:CA 
OF 31:A8 
OF 39:D6 
@F41:B9 
OF49: De 
OF 51:BB 
8F59:66 
O8F61:208 
OBF69:CA 


| OF 71: 7B 
OF79:AE 


G6F81:C6 
OF89: 28 
BF91:18 
OF99:0E 
OFA1:26 
OFA9: OF 
OFBL:D4 
BFB9:18 
OFCI]1:ED 
BFC9:29 
OFD1:26 
OFD9:17 
OFE1:78 
OFE9:1B 


| OFF1:60 
| OPF9:C2 


1901:A9 
LOBB9I:AB 
1911:F6 
18919:c8s 
1921:28 
1029:A9 
1631:8B 
1839;:60¢ 
1841:F8 
18049:67 
1651:A9 
1059:68 
1861:67 
1869: 208 
18971:26 
10979:8A 
1881:6B 
1889:De 
18691:FB 
1899:A3 
18A1:c9 
18A9:18 
18B1:c4 
16B9:4c 
19C1:4F 


| 16C9:4E 


18D1:26 
10D9: 20 
18E1:20 
1BE9: 20 
1LOP1:20 
1BF9: 20 
1181:26 
1189:58 
1111:26 
1119:57 
LIZl:FF 
1129: 20 





1131:206 
L1L39:FF 
1141:690 
1149: 84 
1151:¢C1 
1159:C] 
1161:A9 
1169:A9 
1171:60A 
1179:A9 
1181:69 
1189:FF 
1191:908 
LIL99:FF 
11A1:05 
LIA9:C2 
LIBL:FF 
11 B9:CA 
11€1:bD0 
11¢C9:62 
L1ID1L:AG 
11D9:c9 
L1E1:39 
L1E9: 64 
LIF 1:20 
LIF9:F@O 
1201:26 
1289: De 
Ll211:FB 
1219:66 
1221:0B 
1229:C2 
1231:c3 
1239:6C 
1241:¢CD 
1249:6c 
1251:A@ 
1259: 20 
1261:bD9 
1269:18 
L2/1:FFP 
1279:BA 
1281:c@ 
1289:16 
1291: 8F 
1299: De 
12A1: 8F 
L2ZA9:C3 
12B1:D4 
12B9:BD 
12¢C1:99 
12C9:99 
12D1:44 
1209: 3A 


12E1:0D 


1L2E9: 26 
12F1:1E9 
L2F9:FB 
1,.301:09 
1L309:A9 
L31L1L:FF 
1319: 20 
1321:28 
1329: 84 
1331:6¢ 
1339:60 
1341:28 
1349: 20 
1351:4D 
1359:54 
1361:4E 
1369:co 
1371:62 
1379:84 
13861:¢]) 
1389:C) 
1391:CB 
1399:A2 
13A1:C3 
13A9: 60 
13B1:A9 


13B9:AD 


13C1:BD 
L3C9:AG 
1301:98 
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13D9:cc BI 1519:A9 OA AD 10 20 2A C3 FO 1659:3A FF A9 18 AO 86 A2 B5 Ce 
13E1:85 1521:87 28 BE CE 28 6C C2 60 1661:26 84 C) AQ 3F A® CE 28 CB 
13E9:88 1529:AD BD CE 8D 44 CD EE AC 1669:E9 Cl A9 4E AG CE 18 20 AS5 
13F1:24 | 1531:C8 26 3B C9 BO EE AQ OB | 1671:FB Cl 28 66 C2 A2 69 A® C9 
13F9:A4 | 1539:8D 6B Cl 26 F9 C2 AQ BF 1679:0A AI 13 20 2A C3 FO 88 C3 
14@1:2D 1541:A0 CE 18 69 68 98 @1 CA 1681:A9 4E 8D 8C CE 20 BE CE D3 
1499:CD 1549:18 26 FB Cl AQ 68 8D AC 1689: 28 6C C2 60 49 30 3A 20 DE 
1411:9¢ 1551:c8 4C 21 CD AX 56 DO B2 1691:286 260 26 26 20 20 20 20 BD 
1419:A9 | 1559:A9 49 BD BC CE 4C BE CE J699:280 26 20 20 26 20 20 20 C5 
1429:CE 1561:26 79 CD 20 98 CD 98 2¢ 16A):28 26 28 20 20 26 20 28 CD 
1429:9) 1569:CE CD 20 8A CD 28 68 206 16A9:28 26 20 28 26 26 28 20 D5 
1431:D1 1571:99 CD 98 84 28 CE CD 38 16B1:26 26 26 20 26 26 20 20 DD 
1439:BO 1579:68 AQ OF A2 @8 AS 20 BA 16B9:28 286 26 20 20 68 20 79 BE 
1441:¢C7 1581:FF A9 68 20 BD FF 20 CO 16C1:CD A2 GF 26 C9 FF AG OO FAO 
1449:63 1589:FF 68 A9 OF 28 C3 FF 60 J6C9:AE BD CE E8 £8 E88 B9 BC 18 
1451:18 1591:A2 OF 20 C6 FF BO 27 AG 16D1:CE 20 D2 FF CA CA DO FE DI 
1459:48 1599:00 20 CF FF C9 OD F@ BG 16D9: 20 CC FF AD AC C@ FO O3 7) 
1461:36 15A1:99 15 CE C8 D@ F3 AQ FF 16E1:4C BA Cb 4C 63 OH BW BO 78 
1469:05 15A9:99 15 CE 20 cC FF AQ 34 

1471:26 15B1:CD 15 CE D@® O87 CD 16 CE 

1479: 268 15B9:Da B82 18 68 38 680 AO OB 

1481:8D 15C1:A2 OD B9 32 CE 99 15 CE 

1489: 10 15¢9:c8 CA DO FG FO EE AS IE All programs 
1491:CE 15D1:A@ 65 A2 BC 26 84 C) AY ‘ i 

1499; 99 15D9:F4 A@ CD 260 E9 Cl AQ 15 listed in this 
14A1:3B 15E1:A® CE 18 20 FB C) 28 66 ¥ 

14A9: 26 15E9:C2 A9 66 AG FE 28 12 C3 

14B1:20 15F1:20 6C C2 68 44 49 53 4B magazine are 
1489: 28 15F9:28 45 52 52 4F 52 28 44 A , 

1401:52 16@1:49 53 56 4c 41 59 08 50 available on the 
14C9:FF 1699:52 45 53 53 20 4) 4E 59 | ce 
14D1:45 1611:28 4B 45 59 FF 26 20 28 | k 
14D9: 4) 1619:26 26 20 20 26 20 20 26 GAZETTE Dis . 
14E1:A9 1621:28 20 20 26 26 20 20 20 ° 

14E9:99 1629:20 26 20 20 20 20 20 20 Details elsewhere 
14F1:A0 1631:20 FF 44 45 56 49 43 45 < { ee 

14F9:cCC 1639:20 45 52 52 4F 52 FF 4E h 

1501:A2 1641:45 57 20 41 20 44 49 53 in IS issue. 
1589:C3 1649:4B 45 54 54 45 FF 4E 4) 

1511:99 1651:4D 45 2c 49 44 68 4E 30 











Freeze Machine 


@ The ultimate archival device 
@ Totally unstoppable 
freeze utility 


| The FSD-2 Excelerator + Plus 


@ 100% compatible for the 
64 or 64C 

@ Faster, quieter, more reliable 
than the 1541 or 1541C 

@ Breakthrough direct drive 
technology 


Slimline 64 


@ Full one year warranty @ Sleek new replacement 
@ Half height drive, smaller case for the 64 
and slimmer than the 1541 M™ Takes only 10 minutes 
@ Separate power supply, with a phillips to install @ Built-in file copier 
drive remains nook. @ Gives your 64a new image 4 Two fast loads 
@ Priced at $159 a) Priced : at $29 @ Priced at $39 


Drive the Best! 


1-800-548-9669 


Surfside Components International 
P.O. Box 1836 Capitola, CA 95010 
. In California; 408-462-9494 


Policy: Visa/MC/Money Order, Personal Checks (require 3 weeks to clear). California 
residents add 6.5% sales tax, Prices reflect 4% cash discount, add 4% for credit cards, 





See a) 
FACTORY AUTHORIZED 


COMMODORE REPAIR CENTER 
1-800-772-7289 


(312) 879-2888 IL 
C64 Repalr jrcsomy . 42.95 Amiga Repair 


SUPER 81 UTILITIES. 


Super 81 Utilities is a complete utilities package for the 
Commodore 1581 Disk Drive and C128 computer. Copy whole 
disks or individual files from 1541 or 1571 format to 1581 
partitions. Backup 1581 disks. Contains 1581 Disk Editor, 
Drive Monitor, RAM Writer, CP/M Utilities and more for only 


C128 Repair incom. 64.95 «= wrenomrp eee reece 99.95 $39.95. 
1541 Permanent Amiga Drive ER - 
Alignment 29.95 _ Repair ....... 149.95 1541/1571 DRIVE ALIGNMENT 
1541 Repair ...... 79.95 phaltee Slee as aS CAUL 1541/1571 Drive Alignment reports the alignment condition of 
. 79.95) eikssicadincsenrl. the disk drive as you perform adjustments. Includes features 
1571 Repalr ...... ~ Other Equipment . . CALL for speed adjustment and stop adjustment. Includes program 


disk, calibration disk and instruction manual. Works on C64, 


CALL BEFORE SHIPPING C128, SX64, 1541, 1571. Only $34.95. 


PARTS AND LABOR INCLUDED 
FREE RETURN SHIPPING 
(APO, FPO, AIR ADD $10.00) 


24-48 HR. TURNAROUND 
(Subject to Parts Availability] 


30 DAY WARRANTY ON ALL REPAIRS 


—_—_———— rr rs rr cs ee 


"excellent, efficient program that can help you save both 
money and downtime." Compute!l’s Gazette, Dec., 1987. 


GALACTIC FRONTIER 


Exciting space exploration game fro the C64. Search for life | 
forms among the 200 billion stars in our galaxy. Scientifically 
accurate. Awesome graphics! For the serious student of 
astronomy or the causal explorer who wants to boldly go 
where no man has gone before. Only $29.95. 


C-64 Power Supply .......0s0ccccnecacnes 34.95 ) 

128 Power Supply ce csscevesvns sees cores: 59.95 MONDAY MORNING MANAGER 
C-64 Over Voltage Sensor ..........-0e00: 19.95 ; | ; 
Other Parts eo ene ecee ee ee CALL Statistics-based baseball game. Includes 64 all-time great major 


league teams. Realistic strategy. Great sound & graphics! Apple || 


(Plus $3.00 Shipping/Handling} systems - $44.95, C-64 & Atari systems - $39.95. 


All parts for Commodore equipment usually in stock 
For Parts Call (312) 879-2350 


Dealer Discounts Avallable - 
TEKTONICS PLUS, INC. temo 
150 HOUSTON STREET eserr.= 60] 
BATAVIA, IL 60510 Shieh 


CLIP AND SAVE 
Mes ee ces SS SY 


ADVANCED == rccnvsn ER 
DETECTION & CONTROL =o cc": aaa 


NO INTERFACE IS EASIER TO USE 33C¢ 
* Control lights, appliances. heating and cooling systems. each : 


relays. motors and virtually any electrical device | « Lifetme Warranty 
* Connect to temperature, light, sound, moisture, fluid level | DSHD * Error Free 
32" DISKETTES NEW! | 
(UNBRANDED) 


and pressure sensors, | 89C¢ 
be MOUSE EASE EASE 
SALE 99C¢ each | AMP-2 


Je separate buffered digital output lines 
SOLD IN LOTS OF 50 


Order with check, money order, VISA, MasterCard, COD. Free 
shipping & handling on US, Canadian, APO, FPO orders. COD 
& Foreign orders add $4.00. Order from: 


Free Spirit Software, Inc. ->= 
905 W. Hillgrove, Suite 6 
LaGrange, IL 60525 
(312) 352-7323 


lone 


L: 





* Sturdy Blank PVC Jacket 

* With ID Label 

* With Write Protect Tabs 

* With Envelopes 

* In Factory Sealed Poly Packs 
SOLD IN LOTS OF 100 





¢ 32 Separate digital input lines each 


| BH100 1/0 Card | 8 Channel A/D Plug-in 


User Manual, instructions, Conversion Module $45 
sample programs & diagrams 
of typical hookups $129 Fast 8 bit 0-5V A/D converter, 





Complete |!/O Course | Security System Module | 
Includes 8H100, Beginner's | | S & H $4.00, FIRST 100 OR FEWER DISKS. 

Module. Course Manual ang | “With siren. switches and | $3 00, EACH SUCCEEDING 100 OR FEWER DISKETTES 
User Manual $159 software $35 & 


MINIMUM ORDER: $25.00. S&H. Continental USA. Foreign | Size: 
Orders, APO/FPO, please call. MI residents add 4% tax. C.0.0 a" xo" 
add $4.00, payment with cash, certified check or money order | 


Beginner’s 1/O Interface Beginner's Module $25 | | Prices subject to change Hours: 8:30 AM—?7.00 PM ET Protective nylon wa, 
—_—_—_—??}} = laminated rubber mouse 


Course Manual $15 With 8 LEDs. 8 switches and 1 | COMPUTERFACTS'¥ Publications from SAMS pad keeps mouse 
VERY AFFORDABLE. Discount Prices! 

Learn all about interfacing! relay Requires the BH100 ae ll : ; Pas cleaner and tracking 

9 Wiring Diagrams Repair Dats Parts Lists smoother. Protects the 


‘Trouble Shooting Techniques for all popular brands of 
microcomputers, monitors, printers & disk drives mouse and surface It is 


= Apple tl, Il, le or tle : $18.95 oo, on. No more scratching. 
INTELLIGENT 1/0 | mommedors 1641 diak ative .., 318.95 oa, Rubber surface won't 
| IBM PC-AT S170 $37.95 ea. 7 let pad slip under the 


ich Okidata 62, 92 of B4 Printer £18.05 ea. ras 
/ WATER ST. « MASSENA, NY 13662 Call Toll-free for price on other models loughest conditions. 


19) 769-2716 = bd Precision Date Prague 


Call for free brochure today! P.O Box 8367, Grand Rapids, Mi 49518 
(616) 452-3457 © FAX: (616) 492.4914 
Michigan 1-800-632-2468 

Gulside Michigan 1-800-748.0098 


Beware of imitations - get the high quality original BH100 
Add $4 for postage and specify C-64 or VIC-20. 





LO) HAS Vid oe DIRQ OLOI Baa 


OF AMERICA 


For Orders Only — 1-800-225-7638 
PA Orders — 1-800-223-7784 
Customer Service 412-361-5291 


Commodore 64/128 Bargai 






Simon&schuster 


COMPUTER SOFTWARE 


Design, print, fold & 


fly award-winning high- 
performance airplanes. 


Great International Paper 
Airplane Construction Kit 
Our Discount Price $9.88 


ACCOLADE 
Dambusters 
PSI-5 Trading Comparny$9.48 
ACTIVISION 

Cross Country 


Road Race.......$9.88 
Ghostbusters....... $9.88 
Hacker ...........$9.88 


Little Computer People$9.88 
ARTWORK 
Beach Blanket 


Volleyball. .......§9.88 
Equestrian Show 
jumper.......... $9.88 


Highland Games... . $9.08 


Hole in One + Six, .$9.88 
Police Cadet,...... $9.08 
Thai Boxing ....... $9.56 
AVAN TAGE 

Deceptor .......- $9.48 
Degert Fou .... ee... $9.88 
Power ....-.se-5+5 $9.88 


Project Space Station $9.88 
Sigma 7 $9.85 





ane 


Choplifter/David's 


Midnight Magic... $9.88 
Karateka .....-.... $9.88 
$9.48 


loderunnmer........ 


THUNDER 
MOUNTAIN 


Compete on 
actual Slot Car 
Racer circuit 
courses or 


design your own. 


Slot Car Racer 





CDA 
America Cooks Series: 


American ... ..  §9.88 
Chinese........... $9.88 
French .. cece so 598 
Hallam... eee PO 
Mexican... ... $988 
DATA EAST 

Last Mission ....... $5.88 
Q-Bert... eee eee $4.58 
TAK WT... oo LB 
EASY WORKING! 
SPINNAKER 

Filer .. peewee OBO 
Planner........... $6.88 
Writer... cesses $6.88 
ELECTRIC DREAMS 
Spindizzy ......... $9.88 
foids...... $9.88 


ELECTRONIC ARTS 
Adv, Const. Set... .. $9.88 
Age of Adventure . . . $9.88 
America’s Cup Sailing$9.88 
Archon .....000555. $988 
Archon 2: Adept... . $9.88 
Financial Cookbook , $9.88 
Heart of Africa..... $9.08 
Lords of Conquest . .$9.68 
Mail Order Monsters $9.88 
Adind Mirror...» . 
Movie Maker . 


Our Discount Price $6.88 


*Please Read The Following Ordering Terms & Conditions Carefully Before Placi 
| & Company checks, allow 3 weeks clearance. No C.0.D.'s! Shi 
& Puerto Rico-add $10 on all orders. Sorry, no oth 


orders. Ca 


CUSTOMER SERVICE HOURS: Mon.-Fri. 9 AM-5:30 PM Eastern Time. REASONS 


rchased within 60 days from $.D.of A. I 
| be replaced with the same merchandise only. Other returns subject to a 15° 
product purchased & return directly to the manufacturer. Customer service will not accept collect 
PM, SAT 10 AM~4 PM EASTERN TIME. Because this ad had to be written 2-3 mos. before it was pub 


¢all for more information. 













yy De) ay: 


¢ Free shipping on orders 
over $100 in continental USA 
© No Surcharge for VISA/MasterCard 
e Your card is not charged until we ship 


n Basement—Dozens of Titles For Less Than $10! 


MLUULLE. ..........§9.88 
Murder Party ......59.88 
Music Const, Set... $9.88 
One-on-One ....... $9.88 
Pinball Const. Set... $9.88 
Racing Dest, Set... . $9.68 
Seven Cities of Gold $9.88 
Se $9.88 


Super Boulder Dash .$9.85 
Touchdown Football .$9.88 
Ultimate Wizard... . $9.88 
EPYX 

Ballblazer.........§6.88 
Barbie............ $6.88 
Jumpman ......... $6.88 
Gateway to Apshai. . $6.88 
Impossible Mission . . $6.88 
Koronis Rift 
Pitstop 1 or 2...$6.88 Ea. 
Rescue on Fractalus . $6.88 
The Eidolon ....... $6.88 
FISHER PRICE 
Dance Fantasy 





Discovery Kit™ 








Memory Manor .... 
Number Tumblers... $4.08 
Sea Speller ....... 
"all above titles on cart. 
GAMESTAR 
Star League Baseball 

On Field Football .$9.88 
HES 
Microsoft Multiplan . $9.08 
HI-TECH EXPRESSIONS 


Award Ware . . $9.88 
Card Ware ........54.88 
Party Ware ...... . $9.88 


HI-TECH EXPRESSIONS 
Sesame Street Serbes: 


Astro-Grover... ee $6.08 
Big Bird's Special 
Delivery........- $6.88 


Ernie’s Big Splash .. . $6.88 
Ernie’s Magic Shapes $6.88 
Grover’s Animal Adv, $6.88 
Pals Around Town .. $6.88 
KONAMI 

Circus Charlie ..... $9.48 


Amazing software lets you meet the little 
people living inside your computer! 
Make contact with the little people living 
inside your computer. 

Our Discount Price $9.88 


KONAMUACTION CITY 


Hyper Sports/Ping Pong$9.28 
MAIKIG . ww ee 
Track & Field....... $9.88 
MASTERTRONIC 
Action Biker....... $4.88 
Bourdher . 2.0. ee $6.58 
Captain Zap.......-. $6.85 
Games Creator ..... $6.58 
Infinity Machine (R). . $9.88 
Knight Games ...... $6.58 
Last V-B wn cane $4.58 | 
Master of Magic ...$4.88 
Ninja ...0.. . $4.08 
Pro Golf... 1.55555 $4.86 | 
Shogun ...-.....6: $4.58 
Speed King ........ $6.58 
ee ar $4.88 
Vegas Poker & 

jackpot ......... $4.88 
Water Polo ........ $688 


The Activision Little Computer People | 





SIH i 8 
ECIUATIVGDUNOETVINGH 
NSIOTROMPINT AG 





|) 


| 





MIN DSCAPE 
Bank St. Music Writer $9.88 
RANDOM HOUSE 
Charlie Brown's ABC's $4.88 
Snoopy's Reading 
Machine ......... 
Snoopy Writer... .. . $88 
Typing is a Ball, 
Charlie Brown .. . $6.88 
ECA 
Congo Bongo (R) .. .$6.88 
Super Zazron (R).. .$6.68 
55! 
Computer Baseball . . $9.88 
Computer Quarterback$9.38 
Fifty Mission Crush . . $9.88 
Gemstone Warrior, . . $9.88 
Germany 1985...... $9.88 


Ringside Seat....... $9.88 
Six-Gun Shootout ... $9.88 
Wings of War ...... 99.88 
SHARE DATA 

Family Feud ........ $7.88 
Jeopardy... 66. $7.88 


Wheel of Fortune... . $7.58 


Your Order: Orders with cashiers check or money order shipped 












| GOLD SORT WARE” 





| Original Hits! 


action on one disk! 


| Baseball & On 





THUNDER 
MOUNTAIN 





Top Gun™ puts 
you in the fighter 
pilots seat of a 
technologically 
advanced F-14 
Tomcat. 


Top Gun'™ 
Our Discount Price $6.88 


SIMON_& SCHUSTER Great British 


Great International Paper Software .......5. $4.88 
Airplane Const. Kit. $9.88 leviathan... ....00s $l 
SPECTRUM HOLOBYTE Ross Goll RRC $6.88 
Gato co ccc evens es $988 mon in Wur 
SPINNAKER Solar System . BS 
Alf in the Color Cave $488 i Man... ++: $6.88 
Bubble Busters ..... $458 Agalehisele seageiei-BM, S555 
Cosmic Combat... . . $4.58 Seale Position sich Sa tay asi Sou 
Fraction Fever ...... $4.88 Rambo: First Blood Y 
Gold Record Race... .$4.58 Bart il : $6.88 
Letter Scrambler ...$4.88 Slot Ca Rac Saree $6.88 
Monster Voyage... . . $4.88 Beret hE CE 
Ranh o« oc. ox. $488 Top Gun ....... .. BB | 
Story Machine. ..... gang UXB/SPINNAKER | 
“all above tithes on cart. Dark Tower... 0.0. 88 
TELARIUUM Karate Chop ....... $6.58 
ATABYON Sauce eee es gogo | VALUE WAKE 
Dragonworld ...... . $9.88 Artist cee eee SABE | 
Fahrenheit 451...... $9.88 Educator ee ake a ele 458 
Nine Princes in Entertainer... . $4.58 
Ares? s 503.3% $9.88 Home Banker ...... HAs 


Perry Mason: Case of 
Mandarin Murder. . $9.88 

Rendervous wiRama . $9.88 

THUNDER MOUNTAIN 


WINDHAM CLASSICS 
Alice in Wonderland . $6.88 


Cyrus Chess........ $688 Below the Root..... $6.08 
Demolition Mission ..$6.88 Wiss Family | 
Dig Dug .......... $688 Robinson ........ $4.85 
Eliminator ......... $6388 Treasure Island .... . $4.88 


Equinas . . Wizard of Oy ..... 


Two Gamestar Sa 


Nine innings of 
hard-hitting baseball 
& four quarters of 
punishing gridiron 


Star League 


Field Football 
Our Discount Price $9.88 





immediately on in stock items! Personal 


ing: Continental U.S.A.-Orders under $100 add $3; free shipping on orders over $100, AK, HI, FPO, APO-add $5 on all 


is defective, please call for a return sect palis tde hip al Het 
15% restocking c er days from your purchase date, 

eat collec calls or calls on $.D.0f A.’s 8004 order lines! ORDER LINE HOURS: Mon.-Fri. 9 AM-5:30 
lished, prices & availability are subject to change! New tithes are arriving daily! Please 


r International orders acce 





ted! PA residents add 6%. — tax oe reer orgies of aoe clarinireh Pelt Dee 
R CALLING CUSTOMER SERVICE—412-361-5291 (1)Status of order or order any mer 
rites mber. We will not process a return without a return auth. #! Defective merchandise will 


ase refer to the warranty included with the | 


SOFTWARE DISCOUNTERS 
OF AMERICA 


For Orders Only — 1-800-225-7638 


PA Orders — 1-800-223-7784 
Customer Service 412-361-5291 


ABACUS BOOKS 
Anatomy ol the 1541. .$14 
Anatomy ol the Cé4 , $14 
ClM8 Basie 7.0 Internals$149 
CiZH Basic 


Training Guide ..... G12 
C28 Internals ....... $14 
C6 Pecks & Pokes ..$12 
C128 Tricks & Tips... .$14 
CPM on the C1286 ,,..$14 
1571 Internals ....... $14 
GEOS Inside & Out ..$13 
GEOS Tricks & Tips ..$13 


ABACUS SOFTWARE 
Assembler Monitor ., .$25 


BARC heabenetecwes $25 
Gasic 128 «occ accdes $39 
Cad Pak,. $25 
Cad Pak 128... $39 
Chart Pak ....... $25 
Chart Pak 128 $25 
Cobol... ... cee ee $25 
Cobol 128 .......... $25 
PPM 0. wecce renee e S25 
PPM 128 .....0006. $19 
Speed Term 64 or 128 $25 
Super (C.... 9 
| Super C WB ww... oe $19 
Super Pascal ... $39 
Super Pascal 128 $419 
TAS » $25 
TAS TIA cee eae $49 
ACCESS 
Echelon wilip Stik ...$29 


Famous Course Disk #1 
for World Class LB. .$14 
Famous Course Disk #2 
for World Class LB. .$14 
Famous Course Disk #4 
for World Class LB, , $14 
Leader Board (Original) 

1 Pack, . 
Lip Stik Plus. ....... .$17 
Tenth Frame ........ 
Triple Pack: BHI, BH2, 

Raid Over Moscow .$14 
World Class 


Leader Board ...... $25 
ACCOLADE 
| Ace of Aces.........$19 
Apollo 18: Mission 
to the Moon....... $19 
COMMON cya asa ., $19 


4th & Inches Football .$19 


Hardball,........00. $19 
Mint Putt . $19 
Test Drive ..........$99 
ACTION SOFT 

Thunder Chopper ....$19 
Up Periscope! ....... $19 
ACTIVISION 

Aliems ...... a Fe] 


Gamemaker wiSports & 
Science Fiction Disks $33 


Gee Bee Air Rally... .$19 
Hachber Dice ane e eens $7} 
Labyrinth ,.... $19 
Maniac Mansion... .. $7) 
Might & Magic ...... $25 
Music Studios... .. old 
Postcards .. 000000 u es $16 
Shanghai .. ere Lb, 
The Last Ninja,...... $23 
Translormers ........$19 
AMERICAN EDUCATIONAL 
Biology .........+++$12 
Grammar...........$12 


Learn to Read (Gr, 1-4)$25 
Phonics (K-39), ...... $25 


Reading Comprehension$25 
Science: Grades 3/4... $12 
Science: Grades 5/6... $12 
Science: Grades 7/8. ..$12 


US Geography .......$12 
US History..........$12 
World Geography ....$12 
World History ....... $12 
ARTWORK 

Bridge 5.0 .......... $19 
Cycle Knight ........$14 
International Hockey .$14 
Linkword French.....$16 
Linkword German .... $16 
Linkword Russian. ....$16 
Linkword Spanish ....$16 


Strip Poker. ....44... $21 


Data Disk #1 Female ..$14 
Duta Disk #2 Male ...$14 
Data Disk 43 Female. .$14 
AVALON HILL 

Dark Horm ......... $19 
Gulf Strike ......... $19 
NBA Basketball ......$25 
Spitlire 40..........$23 
Super Sunday. .......$21 
SBS 1985 Team Disk ..514 
SES 19496 Team Disk . . $14 


SBS Gen, Mgr, Disk. . $19 
BAUDVILLE 
Hlazing Paddles ......$23 
Video Vegas.........519 
BERKELEY SOFTWORKS 
Oe0s 1268 eee elect $44 
Geo-Calc 128 .....-- $44 
Geo Dex/Desk Pack 128344 
GeweFile 128........544 
Writer's Workshop 128 $44 
Geos 64,.... y eae ee $39 
*CeoCale oo... e ees 
"Geos Desk Pak 1... . $23 
"Coo [ew oo... ES 
"Geo File... c. 0 cee OD 
"Geos Font Pak 1 or 2$19 Ea, 


*Geo-Programmer....$44 
*GemPublish........ $44 
*Geo-Spell......... -$19 
*Writer’s Workshop. ..$33 
“Requires Geos 64! 
Business Form Shop . .$25 
BRODERBUND 
Carmen Sandiego: 

LSA aie sniwinte suk poss $25 

Wire Sipe a x ares $23 
Cauldron 1 &2...... $19 
Magnetron, .........$19 
Print Shop .......... $26 
PS. Companion ...... $23 
PS. Graphics Library 

#1, #2, of #3 ...516 Ea. 
P.S. Graphics Library 

Holiday Edition ....516 
PS. Paper Pack ...... $i4 
Super Bike Challenge .$14 
Toy Shop ...........$19 
CAPCOM 
Ghosts & Goblins ....$19 
Gunsmoke ....,.....$19 
Side Arms ......-...- $19 
Speed Rumbler ...... $19 
CBS 


Success w/Algebra: 
Binomial Multiplication 
& Factoring ......519 
First Degree & Advanced 
Linear Equations ..$19 
Graphing Linear 


Functions .........$179 


Simultaneous & 


S.D. of A. 


¢ Free shipping on orders 


over $100 in continental USA 


Quadratic Equations. $19 


Success wiMath: 


Addition & Subt. ... $79 
Decimals: Ackd, & Sulst.$19 
Decimals: Mult. & ODiv.$19 
Fractions: Add. & Subst.$19 
Fractions: Mult. & Div.$19 


Multiplication & 





Division... ...0 0 $19 
CMS 
General Acct. 128 ...$119 
Inventory 128 .......$49 
DATA EAST 
Breakthru....... woe $19 
Commando ........ $14 
Ikari Warriors ...... a19 
Kid Niki, .... teens $19 
Specd Buggy ....... $19 
Tag Team Wrestling .. .$23 
Victory Road........ Call 
DATASOFT 
Alternate Reality: 

Dungeon ......... $26 
221 6. Baker St....... $71 
Theatre Furope $19 
Tomahawk ..... vee eel 
Video Title Shop . $21 
DAVIDSON 
Algeblaster .» $32 
Math Blaster ........$32 
Speed Reader 2 $32 
Spell It... wanna edde 
Word Attack ........$32 
DESIGN WARE 
Body Transparent... .. $19 
European Nations .,..$19 
Mission Alpebra...,.. $19 
Spellicopler .........$19 
States & Traits ....,, $19 
DIGITAL SOLUTIONS 
Pocket Filer? .......$33 
Pockel Planner 2.....$33 
Pocket Writer 2o....., oy 
“all 2 in 1 Super Pack. $59 
ELECTRIC DREAMS 
Rocky Horror Show ..$14 


Titanic Recovery Missions$14 


ELECTRONIC ARTS 
Ammesid ...---.0005 
Arctic Pow... .. 


$26 
$21 


Bard's Tale 1 or 2 . $26 Ea. 


Bard's Tale 1 or 2 Hirvts$* 
Chessmaster 2000 
Chuck VYaeger’s AFT 
Demon Stalker... . 
Earth Orbit Station 
Instant Atusic 
Legacy of Ancients . 
Marble Madness... .. 
Monopoly .... 
Outragemus Pages... . 
Patton ve Rommel . 
Pegasus. . 
Row kford . 
Scrabble , . 
Skyfox 2 oo... 040. 
Skate or Die........ 
Star Fleet Po ....... 
Strike Fleet,........ 
World Tour Golf. ..... 
EPYX 
Boulder Dash 
Construction Kil... 
California Games , . 
Champ. Wrestling... . 
Coil Cop... c..eues 
Create A Calendar .. . 
Destroyer ia. 





1 Ea. 


$26 
$23 
Fd 


$71 
$21 


.+ $21 
$21 


Sh 


$43 
$21 


$21 
$21 


va 
$2) 
$21 
. $26 
$21 


$21 


S16 


.. $24 


$24 


. ob 


$19 


$23 


PT. CG—BLAWNOX 


Fast Load (R) ........§29 
Movie Monster. ,.....$14 
Omicron Conspiracy. ,$23 
BS. Graphics Scrapbook 


WiSports . voeee e $16 

nO the Wall... . .$16 

HSchool oo... 0. STG 
Rad Warrior ......... $16 
Spiderbot ........... 916 
Spy va. Spy 3: 

Arctic Antics... 0... $16 
Street Sports: 

Baseball ...,...065 $23 

Basketball .... 0044 | 
Sub Battle Simulator . .$23 
Summer Games ...... $14 
Summer Games 2... . $29 
Temple Apshai Trilogy . $14 
Winter Garnws $74 
World Garnves $2) 
FIREBIRD 
RUNDE ialeouin wih winte o'g ote ara $19 
Golden Path ........ Call 
Guild of Thiewess..... $25 
Knight Orc . . $25 
Starglicer . ot eees fa 
The Pawn. . $25 
The Sentry $25 
Trac ker $25 
GAMESTAR 
Champ, Baseball $19 
Champ, Baskethall $2) 
GFL Ch. football . $23 
On-Court Tennis $19 
Star Rank Boxing 2... .$19 
Top Fuel Eliminator .. . $19 
SAT Math oo. u eee a S14 
SAT Verbal oo... $14 
INFOCOM 
Beyond Zork 12H... .. $29 
Border fone ..... 04, $23 
Curcaucracy WH... . $23 
Hitchhiker’s Guide ... . $19 


Leather Goddesses... . $25 
Sond & Bert Couldn't Make 

Head or Tail of It... $23 
Plundered Hearts... .. 
Stationfall,..... 0004 $7) 





The Lurking Horror .. .$23 
Trinity T2H cece $2) 
fork 1 .... 404 
fork Trilogy $19 
INKWELL SYSTEMS 
©1684 Light Pen $44 
ITO Deluwe LP . 2... $69 
Flexidraw 5.5 ... $71 
Graphics Galleria: 
Animaly...........$16 
Borders & Signs... .. $16 
Futuristic Encounters . $16 
Holiday Theres .. $16 


Maps of the World . .$16 
Graphics Intregrator 2 .$19 
KONAMUACTION CITY 
Rush ‘mn Attack Vie 


Ar Kung Fu .. $19 
Vie Ar Kung Fu2,,,..$19 
MICROLEAGUE 
Baseball .......-.... $25 
Box Score Stats....... $16 
General Manager... .. $19 


1986 Team Data Disk. .$14 
1987 Team Data Disk. .$14 
WWF Wrestling ......$25 
MICROPROSE 

Acropet occa $I 
Airborne Ranger... .. $23 
Conflict in Vietnam . . $25 


Crusade in Europe ...$25 
F-15 Strike Eagle... ... $23 
Gunship... 0.005 $23 


Kennedy Approach ie $16 
Paral hasaccre ton wrecpecvas 
Project Stealth Fighter .$25 





Silent Service... 0... $25 
Top Gunner .. . $16 
MINDSCAPE 
Bop & Rumble ...... $19 
Bop & Wrestle .......$19 
Defender of the Crown $23 
De ja Vu ..........,.823 
Gauntlet . ..$23 
High Roller. ...... $19 
Indoor Sports .. . $19 
Infiltrator . $149 
Intilirator 2 ree ea ed 
Into the Eagle's Nest $19 
AAulanis ........ 514 
Paperboy ........ $24 
Perfect Score SAT... . .$44 
Super Star 

Ice Hockey ........ $74 
Super Star Soccer ....§73 
Uchi Mata Judo .. 579 
Wirball. ... 20.04. $i4 
Keviows , . $19 
MISC 
Bob's Term Pro. $24 
Bob's Term Pro 1278 .. .$99 
C.P. Copy 2.2.2... $21 
Doodle... ....5...... $25 
Final Cartridge 3 ..... $44 
Font Master 2 2... .. $29 
Font Master 128......$35 
Super Snapshot (R).... $43 
Superbase 64........ ,$949 
Superbase 128 ,,.....$44 
Superscript b4 0. ,,... $29 
Superscript 12H... ... $39 
ORIGIN 
Auteduel .. 02... $42 
AAS. as $15 
Ogre... ce ee ee HD 
Ultima lor 3 ....$25 Ea. 
Ultima 4... $49 
ST ee $49 
PROFESSIONAL 
Fleet System 2 Plus ...$39 
Fleet System 4 128... . $47 
SIMON & SCHUSTER 
Chem. Lab ........ $25 


IK Lasser Money Mer. . $25 


Typing Tutor 4 . . $25 

SIR TECH 

Deep Space .........§25 

Wirardry: Proving 
Grounds ....2.... -§25 

SOFTWARE SIMULATIONS 

Football ............519 


Pure Stat Baseball ....$25 
Pure Stat College 


Basketball ......... $25 
"Data Disks Avail, Call 
SPRINGBOARD 


Certificate Maker... ..$25 
CM, Library Vol. 1... . $19 
Newsroom ..........$32 
N.R. Clip Art Vol. 1... $19 
M.R. Clip Art Vol. 2... $25 
MLR. Clip Art Vol. 3... $19 
BS. Graphics Expander. $23 
55I 


Batth of Antielam ... . $42 
Battle Cruiser... .... . $37 
Batile Group ........ $47 
AD inte sie min ainelni nie ak el 
Eternal Dagger ...... $25 


PA 15238 


© No Surcharge for VISA/MasterCard 
¢ Your card is not charged until we ship 


Gettysburg .......... $47 
Kampigruppe vee hae 
Phantasie 1, 2 of 3 $25 Ea, 
President Elect 1988... $16 


Reals of Darkness .. $25 
Rings of filfin .. $25 
Rowadwar 2000 $25 


Roadwar Europa... .. $25 
Shard of Spring ...... $25 
Shiloh: Grant's Trial. . .$25 


Sons of Liberty ...... $2) 
War Game Const, Set. . $19 
War in 5, Pacifie . 2... S47 
Warship vi cccecieas $37 
Wirarnd’s Crimen . . $25 
SUBLOGIC 

Flight Simulator 2... . $42 
RS. Scenery Disks Call 


jet $2b 
THREE SIXTY 


Dark Castle $7) 
TIMEWORKS 
Accts. Payable .. $33 
Accts Recenvable ..§33 
*Data Manager 2 $19 
Data Manager 128... .$33 
Desktop Publisher $44 
General Leder $i) 
Partrwer 64 (R) $1) 
Partoer 12H (RK) $19 
*‘Swiltcale Sideways (0). $19 
Swiltcale Sideways TEA. $44 
Swift Tau ‘A? ....... $i5 
Sylvia Porter's Personal 

Fin, Planner 64...,.$33 | 
Sylvia Porter's Personal 

Fin, Planner 18... $34 
“Word Writer J. .... $13 
Worl Writer 728... . $44 
"All FV tithes in 1 Pk... $5 
UNICORN 
Decimal Dungeon .... $19 
Fraction Action, ......, $19 
Percentage Panic... ., $19 
Race Car Rithmetic $9 
Ten Little Robots ..... $14 


UNISON WORLD 


Art Gallery 1 or 2 . $16 Ea, 
Art Gallery: Fantasy .. . $16 


Print Master Plus... .. $23 
WEEKLY READER 
Stickyiear Series 

ABC's $16 
Math | or 2 $16 Ea. 
Aurnthers .. Sb 
Opposites S1b 
Reading . $16 
Shapes . $16 
Spellgrabber . .. $16 
VINEE ¢ ee iae san hae et $16 
ACCESSORIES 

Animation Station S49 
Bonws $5, 0D... $4.99 Ba, 
fons 045, DD ..$5/99 By, 


Compuserve Starter Kit $19 
Disk (Case (Holds 75) $6.48 
Disk Drive Cleaner . . $68 
Dow jones News Retrieval 

Membership Kit... .$14 


Epyx 500 X] Joystick. ..$14 | 


loontroller ....0.6 06s $14 
Suncom joysticks ..... Call 
Wico Bat Handle ..... $17 
Wico Boss oo... cea $12 


Wico Three-Way... . $19.95 
KETEC Super Graphix , $59 
XETEC Super Graphix Jr.$39 
“All programs on disk 
unless otherwise noted! 


*Please Riad The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal 


& Company checks, allow 3 weeks clearance. No C.O. 
orders. Canada & Puerto Rico-add $10 on all orders. Sor 


j or back order (2)if any merchan 
a return without a return auth. #! Defective merchandise will 


D.'s! Shipping: Continental U.S.A.-Orders under $100 add $3; free shipping on orders over $100, AK, HI, FPO, APO-add $5 on all 
] ry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges. 
CUSTOMER SERVICE HOURS: Mon.-Fri. 9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE—412-361-5291 (1)Status of order i 

urchased within 60 days from §.D.of A. is defective, please call for a return authorization number, We will not process 


ise 


v¢ replaced with the same merchandise only. Other returns subject toa 15% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the 
product purchased & return directly to the manufacturer. Customer service will not accept collect calls or calls on $.D.o0f A.'s 8004 order lines! ORDER LINE HOURS: Mon.-Fri. 9 AM-5:30 
PM, SAT 10 AM-4 PM EASTERN TIME. Because this ad had to be written 2-3 mos. before it was published, prices & availability are subject to change! New titles are arriving daily! Please 


call for more information. 











Cx commodore 





s99Q% 


REFURBISHED 


micronics 


AMIGA NEW 
RELEASES 


FREE T-Shirt with the purchase 


of any (2) Electronic Arta 


Products! While Supply Lasts 


Bard's Tale 

Bard's Take II 
Chessmaster 7000 
World Tour Gof 
Marble Madness 
Pegasus 


Moetins 
Murder Party 
re 





@ Most Cables............. 










Tenino pod § 
Test Drive 
Ferran Formula One 
Fire Pomwet Sihver 
Testeratt Plus (in stock| 


C= commodore 










@ Casio CZ 700 $275 Educator 64 | aS 
@ Casio CZ101.......... $250 a. 

@ Digiview Stand........... $50 

e Switchitansc ews wee $30 

@ Mouse Pad......... tees $6 , 

@ Time Saver.............. $60 REFURBISHED 

@ 256K Buffer........... 3 $80 






FULL 90 DAY WAAR 


DISK ACCESS 


5 MEG DISK CASE (75)... 
rere Drees DISK NOTCHER 
9060 EA rea wets 
3% DATA CASE (30) 


TEAK 5‘ UISK HOLDER (50) 
TEAK 5% DISK HOLDER (90). . . 
TEAK 3'4 DISK HOLDER (30). . . 
DISK HEAD CLNA ve 


PRINTERS 


*s4 4g» 

*84 5900 

_. . "837908 
“$4190 
_*827999 
*s4 5900 
*SCALL 


W/2 Ribbon Purchase 


Powertype. .. 
NX 1000 


Dark Castle 
Heac Coach 
Gold Auneer 


Helhywood Poker 








SYSTEM INCLUDES: 
912K 
CGA Card 
360K DOUBLE Drive 


@ 

@ 

Ld SIDED 

@ 8086 (8 MHZ) 
@ Mouse 

@ Parallel & Serial Port 
@ Joystick Port 

@ Tilt Mon. Stand 
@ XT Style Keyboard 
@ Quartz Clock 


SEAGATE wiControiler 
| 20 MEG#275* 30MEGS315* 
*Package Pricing 


Earl Weaver Baseball 
Kind Words 

Page Flipper 
Videostape JD 
Lurking Morro 


4 24) Deluse Pret ti 
$ 30) Word Pertect 
$24 The Works 
$108 Empire 

$24 Studi Magic 


STRINGBOARD 


Certificate M 
Newdegom 
Clip Ary! 
Chp Ant 


Writer Work Shop 
Geoden 


GeoCal Fil 
foreee, ; Kiewit Ork 
GEOS 128 Golden Path 
Geopublish 5 fb Parenti 
Geoprogrammer 


Abacus \: 
hes Tricks and Tips Art Gallery 


$ Boos 
GEOS ina Out (Disk) Print Master 


Talking Teaches 
Canild of Thiewes Gunatep 
F. 


UNISON WORLD | 


Art Gallery ? 


aker 


Qala Mor. 178 
Swiltcale 128 
Wordwriter 3 

All business tithes 
Parlier 

Partner 178 
Sylvia Porters 
Degkion Publisher 


fl? Ala 


Propect Stealth Fighter 
Airborne Flanger 
Silent Service 


PRECISION 


Super base 
Chartipak 128 
Chartpak 64 
Coto 64 


128 


Zucker Boards. . 


Multi Function Cards .... 


MieroProse 4 


Superbage b4 
Superscript 128 
Superscript 128 


Font Master || 64 
Font Muster 178 


FREE SOFTWARE! 
(500.00 Value) 
DOS 3.2 @ GEM Desktop 
GEM Paint @ GEM Doodle 
Basic 2 | 


1 @ Paper Whi 
PLUS e sctochonme Mon. 


(16 Grey Levels) 


Raven $Call 


1.2 MEG Drives.... $1195 
$Call 





MOST SOFTWARE | 
40% OFF 


Fasi load... $74 00 
Aad Warrior. . —. SCALL 
Street Sports 
-Baseball/ Basketball each 24 00 
Work? Karate Champ 
Summer Games ll... 
Super Cycle .. 
World Games 
Football 
Multi-Plan 
Winter Games 
Sub Battie 
Calilomia Games 
Bouider Cash aideedciet 
Soy vs. Spy I 


Cobol 176 
une C Compiler 64/128 
Super Pascal 


i ACCESS 


MaACH-178 

Leaderboard 

Echelon 

World Class Leaderboard 
10th Frarw 


Witastar 
Vidawrite 178 


Earth Ortet Station 
Micnoliw'y tr 


MINDSCAPE 
Detender of the Crown § HI TECH 
Card ware 
Heart ware 
Party ware 
Ware wrth wl 


Broderbund Software: 


Priniaheao 
Graphars Lit 
Carmen Sandiege 
Kor otews 

Prant shop cong 


Shard of Spring 
Wirard's Crown 


mag 


Mero. Batehad 
Geretal Migr 

Stat Ovgk 

Be Team Desk 


re 

Load 
== BPRS 
RLF do oe 


SS22 


BS8ss8 


Flaght Sar i 
Scenery Orch 
Je! 


“ 
ch 
- 
= 
= 


=e 
22 

mete s 
s82e8 


We Peroone 


= 
fae] 
—_ 
3 
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C= tg ee ci 
FSD-2 
MEEEO Ogee" 
$4 95* 
$42995° 


ss Retuisted. . . 39995" 
"package pricing 


$9995" 
$3,495" 


| | OKIMATE 20... 
| 1351 


Plug & Print 

Device One Interface 
w/16K Buffer... $5995 

1764 RAM $42000 


sald & Print Purchase 


“ALPS - 18 PIN 
PRACTICAL 240CPS @ COLOR 


PERIPHEPHELS 
5 YEAR WARR 
2400 . 


.$4.5995" 
KISS | oe 
ENGINEERING fg Liocesto 
24 00inreanar...$ 14995 | 
|  Avatex 
1200 Baud.... $7995" & 
1200 Internal... $9995 | 
12Z00-FG.c sc $9995" 
2400 Baud... $1 9995" 


W/Cable Purchase 


@ IEEE CABLES @ VIC SWITCHES 
@ IEEE INTERFACE ' 
| ou PARALLEL TO IEEE INTERFACE 


| FREE-TRIAL OFFER! 





Canon 





CK OMMODOKRE 


AMIGA T 
500 


SPECIAL 


$20090 


| GENLOCK 
$18000 


1020 Drive. DIGIWIEW 


1680 MODEM....$12000 | S/2K RAM... 
002... $Call|  DIGI-VIEW 
Camera wiens. . 


MARAUDER II WITH 


AUTHORIZED AMIGA SALES 4 SERVICE 
$ 


GO64 EMULATOR . 


= y = 
Industrial Company 
Jt. Patgwgrsr Way Sec datad Aare Jeeses O55 


Cc commodore 


$3 99" 


LIMIT EW 
Quant ote fuRBISHED 
0 DAY WARRANTY | 


$160* 

$180* 

$280* 

. $380* 

$520* 

*W/2 Ribbon Purchase 


COLOR INK JET 
ng JOsoA 
95 


LIMITED 
QUANTITY 





SI Rea *1. 






HIGH QUALITY DS/DD - waiepy 000VC AY eae 
DISKETTES Mmm P1200... $1.54o0 | sown 
1 9c each me MP1 S00 00 ces: Gratien $2 7 500° ; 
Lifetime Warranty @ 2 Year Warr. ROEM iriesiewdiisiien. ane SCall Bf | 24 DS/DDi0w. .. 





Certifled W/Sleeves 
| Limtone(10} Pack Per Customer 


of BO0- 433-7756 


MICH. 313-427-7713 


*W/2 Ribbon Purch 





CUSTOMER SERVICE 313-427-0267 fy" 


Monday thru Friday — 10:00 A.M. to 10 P.M. 
Saturday — 10:00 AM. to 6:00 P.M. (E.S.T.) 






SCHOOL P.O.’s ACCEPTED CALL FOR TERMS 


M.C 





5% DS/DD¢0 ton aera 
BASF @ NASHUA 





DEALER INQUIREES INVITED 


No Suncharge for MCWISA/DISCOVER Sorry mo walk 
All returnd must have RA®, Merchandise found defective will be repaired or replaced, We do ami 
eet) Offer refunds for defective products or for products that de net parton myer ereah bbe We make ne | 
nan onenrbleg sper ni ahd mance Any money back guarantee must be handed direct ay with 
rufacturer. Call lor shippeng & handling info. Prices subject to change without not 


12664 FARMINGTON ROAD, LIVONIA Mi 48150 We Cannot quarantos cacAbIN 





MICROCOMPUTER SERVICES 
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Classified 





_SOFTWARE 


FREE SOFTWARE for C64, C125, IBM & CPM 
Send SASE for info (specify computer) to; 
PUBLIC DOMAIN USERS GROUP 

PO Box 1442-A3, Orange Park, FL 32067 


FREE PUBLIC DOMAIN SOFTWARE - 
Request free catalog or send $2 for sample 
disk and catalog (refundable). C64-128 
CALOKE IND., Dept. JK, Box 18477, KC, MO 
64133 





More than 200 great ML.routines tor 64 and 

128, ready to add to your own programs, in 
COMPUTE! Books’ MACHINE LANGUAGE 
ROUTINES FOR THE COMMODORE 64/128. 
Explanations, uses, commented source code, 385 
pages, $18.95. Check your local bookstore or call 
(800) 346-6767. 





THOUSANDS OF PD PROGRAMS FOR 
Cé4/128! We have Games, Utilities, Music and 
much more! Information write: Lightspeed 
Software, POB 7037, Chesapeake, VA 23323 





FREE SOFTWARE FOR C64 (disk Only) 
Games, Educ, Home, Business, Utilities, Music. 
Free Brochure! RVH Publications, Dept. 52, 
718 Alder Circle, Virginia Beach, VA 23462 





RENT 64/128 SOFTWARE! 100's of disks. 
Lowest prices. No deposit or fee. Free 
catalog, Centsible Software, PO Box 930, 
St. Joseph, MI 49085 (616) 982-0327 





TALKING SOFTWARE FOR YOUR 
COMMODORE! Speaking Operating System 
Utilities. Uses BASIC “SAY” command and 
SPEECH 64 (or compatible) in Expansion Port. 
Only $17 (includes 5/H) Send to: Don Hunt, 
P.O, Box 3283, El Segundo, CA 90245 





GM CAR - C64 USER PORT LINK 
Engine trouble codes & sensor programs. 
Executive Electronics, Inc. 938 Main St. 
Yarmouthport, MA 02675 (617)362-3694 






words to be set in boldface. 


3rd). Send order and remittance to: Har 


Blair at (919) 275-9809. 
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COMPUTE!’s Gazette Classified is a low-cost way to tell over 
275,000 microcomputer owners about your product or service. 


Rates: $25 per line, minimum of four lines. Any or all of the first line set in capital 
letters at no charge. Add $15 per line for boldface words, or $50 for the entire ad set 
in boldface (any number of lines.) Inquire about display rates. 

Terms: Prepayment is required. Check, money order, American Express, Visa, or 
MasterCard is accepted. Make checks payable to COMPUTE! Publications, 

Form: Ads are subject to publisher's approval and must be either typed or legibly 
printed, One line equals 40 letters and spaces between words. Please underline 


General Information: Advertisers using post office box numbers in their ads must 
supply permanent address and telephone numbers. Orders will not be acknowl- 
edged, Ad will appear in next available issue after receipt. 

Closing: 3rd of the third month preceding cover date (C5. June issue closes March 

Blair, Classi 

Gazette, P.O. Box 5406, Greensboro, NC 27403. To place an ad by phone, call Harry 


Notice: COMPUTE! Publications cannot be responsible for offers or claims of 
advertisers, but will attempt to screen out misleading or questionable copy. 





SPEEDKIT IMPROVES SPEEDSCRIPT® OR 
YOUR MONEY BACK! 56% discount & 30 day 
m.b. guarantee. Blake Lambert's $5 3.0 - 3.2 
add-ons (Speedpak,-Mate,-View & 9000 word 
SpeedCheck dict.) all on one disk. Send $22 

+ $3 s/h ($6 non-US) to: Upstart G7C, POB 
22022, GSO, NC 27420. MC/V ok (919)379-9732, 
6-10 pm ET. SASE/phone for info, Offer expires 
6/1/88 


C-Net Bulletin Board for C64 & C128. The most 
widely used and respected BBS available. 
300,/1200/2400 bps, 1000 accounts, 40 message 
bases/file transfer SIGS, X-Modem/ Punter, a 
FAST M/L Editor, Online games, and MUCH 
MORE! Softech Computer Systems, Inc., PO Box 
23397, Lex, KY 40523 (606)268-BAUD or 
(800)992-SCSI for C.0.D./MC/¥V 


FREE USER GROUP MEMBERSHIP 

No fees. No dues. Disk of the month. Newsletter. 
Super PD library. $5 gets membership, double 
sided sampler disk + 40pp catalog, QS! Alliance, 
Box 1403, New Albany, IN 47150 








INEXPENSIVE C64/128 ASTROLOGY & NEW 
AGE SOFTWARE. From $9.95 to $39.95. All print 
FAST hard copy. Free details, HETTIGER’S, 315 
Harmony Ct “B", San Antonio, TX 78217 
(512)599-6000 Visa/MasterCard accepted. 


HARDWARE 


Now! Comdr Qualfd Repairs! C64,128,5X64, 
Amiga,PC10,1541,1571. We buy used equipment. 
Fast Serv! 30 day wnty! Mom & Pop's, RR2, 
Box 119, Cainsville, MO 64632 (816)872-6311 


WANTED: SX-64's 

In GOOD CONDITION, will pay $3 TOP 

DOLLAR $$! Write to: Jack Kennedy, 108 East 

Fremont Ave., #80, Sunnyvale, CA 94087 or 

Collect (408) 248-8832 
MISCELLANEOUS 

PERSONAL COMPUTER OWNERS CAN EARN 

$1000 to $5000 monthly offering simple 

services part time. FREE list of 100 best. 

Write: A.LM.P.L, 

Box 60369, San Diego, CA 92106 








ied Manager, COMPUTE!s 
















Reader Service Number/Advertiser Page 
102 Abacus Software ........000 220 cece eee BC 
403 Aior ProductS 2... cc. ccc eee cee eee e eee Ae 
104 Berkeley Softworks .......0.6 6-42 e eee ee ee WY 

Crown Custom Covers... cece ee eees is 
105 Firebird Licensees Inc. .........-.---555. me 
106 Free Spirit Sottware, inc. 129 
107 intelligent I/O ..... , 129 
1068 Lyco Computer . CU Rote AO e SOLAN, Ty 
100 Master Sottwara .... 006 c cee eee AP 
FTO MC Be tian ck acasnkh eae eee oeeiod 
1114 Micro Prose Simulation Software ..............4 
112 Micro Prose Simulation Software ............ IBC 

NAI Schools ...... SR Tea PR eT vin 
413 Precision Data Products .................., 129 
444 Sir-tach Software, Inc. 2.0... eee eee IPC 
4115 Software Discounters of America ........ 130-131 
11G Strategic Studies Group ow... eee tee ees T 
117 Surfside Component oo... cece eens 128 

ed fa Beto ee eee EC irie 129 
116 Triad Computers ....... . ’ 68 
019 Uirabyie oes reeds Out e Unawinnee avec neo 
420 Utilities Unlimited ........0... 062. . cece 


421 Meteo ING: ei. ois hae bales Pei ee 





| COMPUTE! Books’ Commodore 64 & 128 










Programming Book ..... OP ee aey poe ers 59 
COMPUTE! Books’ Electronic Battlefield and 

Submarine Commander ... ab gered sis ae 
COMPUTE! Books’ Flight Simulator Books ..... 69 


COMPUTE! Books’ for tha Commodore 64 4128 . 1 
COMPUTE! Books’ Warehouse Clearance Sale .. 51 
COMPUTE!'s Commodore Buyer's Guide 
COMPUTE!'s Gazette Disk Offer 
| New COMPUTE! Books’ for the Commodore 64 
Ay as Se ee ee ‘Pe fe 


DUST COVERS 


SATISFACTION GUARANTEED 


% CUSTOM MADE TO FIT 

te HEAVY 32-02. VINYL ANTI-STATIC 
te EXTENDS EQUIPMENT LIFE 

te Choice of Colors Light Tan or Brown 





| ACIVartisers 
iAclax 


COMPUTERS PRINTERS 
C-64/Plus 4'C-64C ... 8.00 Seikosho SP-1000 .....13.00 
CAV2B occ gecceeve.19.00 Comrex 220 seseeeee 13,00 
Datassette (C2N) ........ 5.00 C'ltah EEL E pect Pet 13.00 
Amiga 1000 0.0.00... 19.00 Juki 5510 19.00 
(W/Amiga Mon, Stacked) 28,00 !magewriter .. 19.00 
Keyboard only ........ | Epson JX 80 | 19,00 
Atari BOOXL, 130XE 10.00 Epson FX 85/185 ....13,00 
Atari 520 ST 14,00 Okidata 92 13,00 
IBMA PCI RT on..-t-ec 78.00 Citizen MSP 10 13.00 | 
IBM $051 Keyboord 8.00 c DPS 101 Prt at 16.00 | 
(Dimensions Required Gemini 10 & Star 10's 13.00 | 
for IBM Clones) Gemini 15 & Star 15's 16,00 
Atari 1027 20..........13.00 
DISK DRIVES MONITORS 
peed tre, Te ae Atari SC 122748568 19.00 
Amina 5%" D/Drv ... 9.00 ©1702, BMC Color....16.00 
Indust GT, MSD $D-1 8,00 ©"! ?02/Amiga 19.00 
Enhancer 2000 8.00 CAM-141 {-1802) 00 
FSD. 1 f.00 C: | POPA! Magnwx 40 | 7,00 
Atari 1040 8.00 HEC (State Model) 19.00 
Magnavox 80 RGB 19.00 
PRINTERS Princeton (State Mode! 19.00 
C-1525/ MPS 801 . 10.00 Thompson CM 365-66 19.00 
C-15274/ MPS BO? 13.00 Taxon (Stote Model) 19.00 
C-MPS/803, C-1520.... 8.00 Sakata SC-100 ........19.00 | 
Ponavnic 1090 91 13.00 Zenith (State Model) 19.00 | 
Okidata 120/192 .....13.00 VIDEO RECORDERS 13.00 


Okimote 10/70 #.00 Stote Make & Model 
Epson MX/FX RXBO. 13.00 Dimensions required 
Epson LXB0/C-1000.. 13.00 including clock cut-out 


Order by stating MAKE, MODEL and COLOR CHOICE - TAN ee BROWN with 
check or money order plus $1.50 per item ($4.50 maz.) shipping and handling 
| Calif. Res. Include 6°* * focel tax. APO, 2.00‘item, Foreign 3.00/item 
SPECIAL COVERS WILL BE MADE TO YOUR 
DIMENSIONS. SEND YOUR REQUIREMENTS 
FOR OUR LOW PRICE QUOTES. 


Crown Custom Covers 


24621 PAIGE CIRCLE DEPT. A 
LAGUNA HILLS, CA 92653 
(714) 472.6362 
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Recognized by Reviewers. .. 
“GUNSHIP may be the best simulation of any type 
ever created for the C-64... a perfect simulation for 
novices and aerial combat veterans alike, .." 
(RUN, August 1987) 
“Take all your combat flight simulators and stick them 
in the bin. GUNSHIP js the ultimate. . ." 
(Computer & Video Games Monthly, U.K., Feb. 1987) 
“In terms of action alone, GUNSHIP is the best flying 
game we've ever played... it could become one of 
your favorites.” (Family Computing, June 1987) 
“GUNSHIP.. . is a very well-executed simulation, not 
just a game... MicroProse has another winner.” 
(Compute!’s Gazette, May 1987) 


GUNSHIP. For C-64/128, IBM-PC/XT/AT and compatibles, Amiga, Atari ST and Apple 
11GS/+/c/e. Call MicroProse or check with your dealer for speciic machine availabiliy. _} 
Available ata Valued MicroProse Retailer (VMR) near you. Call for locations! If product not : 
found locally, call or write MicroProse for MC/VISA orders. 


(IBM screen shown. Actual screens may vary.) 


\ 


Acknowledged by our customers. .. 
“~+« from the eye-catching packaging to the palm- 
drenching, flak-dodging flight visuals, GUNSHIP is a 
Standard setter for the industry.” 
(J.F., Portland, Oregon) 
"| think it's the best flight simulator I've seen for [my 
computer] and I've seen them all... 
(L.C., Crystal Lake, Florida) 
“Thank you for releasing the most AWESOME program 
GUNSHIP. .. should easily be the #1 program of the 
year...” (R.T., Chicago, Illinois) 
“The GUNSHIP team has produced a landmark in 8-bit 
computers. The manual is the STANDARD." 
(5.M., Pennsauken, New Jersey) 


Through 5 man-years of research and 
development, the Gunship Design Team 
has crafted an unparalleled simulation 
experience. . , 

* Realistic Helicopter Flight Characteristics 

* True 3-Dimensional, Out-the-Cockpit Graphics 

* Authentic Flight Controls and Electronics 

* Accurate Weapons and Counter-Measures 

* Up-to-date Enemy Threats 

* Complete and Carefully Researched Documentation 
® Flight and Combat Tutorials 

* Hundreds of Mission Scenarios 





Get Resuits 


with proven software and books from Abacus. 
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Super Pascal—Get the fastest and 
complete Pascal for your computer. 
Super Pascal is a full implementation 
of standard Pascal. Extensive editor 
features search, replace, etc. Even add 
machine language routines with the built- 
in assembler. Fast graphics library. C-64 
version has high-speed DOS for faster 
access. More than just a compiler— 
Super Pascal is a complete system 
that gives you programming results. 

C-64 $59.95 C-128 $59.95 
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Cadpak—tThe professional design tool. 
Enter simple or intricate drawings with 
the keyboard, lightpen or 1531 mouse. 
With the flexible object editor you can 
create libraries of furniture, electronics, 
etc. as intricate as screen resolution 
permits. Zoom in to do detailed work. 
Produce exact scaled output to most 
printers in inches, feet, etc. Get design 
results fast with Cadpak and your 
Commodore“ computer. 

C-64 $39.95 C-128 $59.95 


GEOS 


Pricks & Tips 
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Open the door to the future In programming 


Super C—You can now develop 
software or just learn C on your 
computer. Easy-to-use and takes full 
advantage of this versatile language. 
Produces 6502 machine code and is 
many times faster than BASIC. Includes 
full-screen editor (search, replace and 
block operations), compiler, linker and 
handbook. Libraries for graphics and 
advanced math are included. Whether 
you want to learn C, or program in a 
serious C environment for your 
Commodore, Super C is the one to buy. 
C-64 $59.95 C-128 $59.95 


BASIC Compiler—Now 
anyone can make their BASIC 
programs run faster! Easily 
converts your programs into fast 
machine language or speed 
code. Even speed up programs 
written in Simon's Basic, Video 
Basic etc. If your program walks 
or crawls, give it speed to RUN! 
C64 $39.95 C128 $59.95 


GEOS™ Tricks & Tips—A 
new book with something for 
everyone. Contains over 30 
tricks and tips that you can use 
everyday. Converts any word 
processor file into geoWrite 
format; edit existing GEOS fonts 
or create your own; Write in 
machine language or explore the 
internals of GEOS. $16.95 








TextPro Amiga is a full. 


Se, fast and powerful. function word 


with a suprising 

BeckerTex ; _ 

formatting Aes IS the plaSsional word 

thle a OMatic Creation of table of cont Processor. 
9 checker. Merge 9raphics into aig 


Process Ing Dacka 


: ge. Easy-to. 
number of extras, eis 


$79.95 
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[Ss and index. Expand- 
Much more. $150.00 
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AssemPro Amiga $79.95 


UNIOCKS the full 


| =: : ! Processor. Inte : Power of 

Dept. G1 « 5370 52nd Street SE » Grand Rapids, MI 49508 Reassembler, Crean, Editor, Debugger, Disagtm9%'S 68000 
Phone 616/698-0330 « Telex 709-101 + Telefax 616/698-0325 Call (6 rence list. Conditional assonihy oh 
Call or write today for your free catalog or the name of your nearest ee) 698-0330 or write for yo | iia 
dealer. Or you can order direct using your Visa, American Express or Catalog. More software. wis Amiga Software and 
MasterCard. Add $4.00 per order for shipping and handling. Foreign commog ane Docks Coming soon! : 
orders add $12.00 per item. 30-day money back guarantee on Amiga iS a toch oaistered tradem | 


a Com 
demark of Berkeley Sottworke. romans, 


lactronics Ltd ~ 


GEOS is ap 
Inc, 


software. Dealer inquiries welcome—over 2400 dealers nationwide. 


